Lisp Autocad错误“；错误：错误参数类型：lsetp nil"；选择多段线时
我目前正在尝试在两个块（第一个块、第二个块）之间运行一条多段线，该多段线沿另一条多段线运行。在操作结束时，将调用一个插入函数，用起始块和结束块的详细信息填充注释块（电缆名称标记） 此多段线将横切其他块，通常需要与基础多段线（电缆管道）平行运行，因此用户需要选择多段线的适当部分以放置注释，因为空间有时有限 我已经注意到，如果我注释掉第二个_块并提供一个harcoded值，ssget函数将不会出现问题，因此我可以合理地确定问题在于该代码中第一个_块和第二个_块的语法或处理Lisp Autocad错误“；错误：错误参数类型：lsetp nil"；选择多段线时,lisp,block,autocad,polyline,Lisp,Block,Autocad,Polyline,我目前正在尝试在两个块（第一个块、第二个块）之间运行一条多段线，该多段线沿另一条多段线运行。在操作结束时，将调用一个插入函数，用起始块和结束块的详细信息填充注释块（电缆名称标记） 此多段线将横切其他块，通常需要与基础多段线（电缆管道）平行运行，因此用户需要选择多段线的适当部分以放置注释，因为空间有时有限 我已经注意到，如果我注释掉第二个_块并提供一个harcoded值，ssget函数将不会出现问题，因此我可以合理地确定问题在于该代码中第一个_块和第二个_块的语法或处理 (defun c:cabl
(defun c:cable ()
(vl-load-com)
(setvar "clayer" "cable layer")
(setvar "celtype" "bylayer")
(setvar "osmode" 515)
(command "_.pline"
(getpoint))
(while (> (getvar ' cmdactive) 0)
(command pause)
(princ "\npress enter to finish:"))
(setq elst
(entsel "\nselect cable segment: "))
(setq ename
(car elst))
(setq pt
(cadr elst))
(setq annopt pt)
(setq pt
(vlax-curve-getclosestpointto ename pt))
(setq param
(vlax-curve-getparamatpoint ename pt))
(setq preparam
(fix param))
(setq postparam
(1+ preparam))
(list (setq pt1
(vlax-curve-getpointatparam ename preparam))
(setq pt2
(vlax-curve-getpointatparam ename postparam)))
(setq cable
(entlast))
(setq cable_start
(vlax-curve-getstartparam cable))
(setq cable_start_point
(vlax-curve-getstartpoint cable))
(setq cable_end_point
(vlax-curve-getendpoint cable))
(setq cable_end
(angtos (angle '(0 0)
(vlax-curve-getfirstderiv cable 0.0))))
(setq first_block
(ssget "_c" cable_start_point cable_end_point
(list (cons 0 "insert")
(cons 2 "first_block"))))
(setq second_block
(ssget "_c" cable_start_point cable_end_point
(list (cons 0 "insert")
(cons 2 "second_block"))))
(setq end_cable
(ssname second_block 0))
(setq start_cable
(ssname first_block 0))
(setq $end_cable
(vla-get-textstring
(cadr (vlax-safearray->list
(variant-value
(vla-getattributes
(vlax-ename->vla-object end_cable)))))))
(setq $start_cable
(vla-get-textstring
(cadr (vlax-safearray->list
(variant-value
(vla-getattributes
(vlax-ename->vla-object start_cable)))))))
(setq cable_name
(vlax-curve-getendparam cable))
(command ; insert cable param
"-insert"
"cable_name_tag"
annopt
"1"
"1"
cable_angle
cable_name
$start_cable
$end_cable
"144"
cable_length))
（entlast）（entlast）