超好用的多重串接出了些问题？
哪位大神帮我看下这个程序问题出在哪？运行后提示命令: hj
选择对象: 指定对角点: 找到 6 个
选择对象:
Processing line 1 of 6
无效的选项关键字。
; 错误: 函数被取消
输入选项 [闭合(C)/合并(J)/宽度(W)/编辑顶点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放弃(U)]: *取消*
不知道什么原因一直用的好好的突然就不好用了困扰好些天了麻烦哪位大神指点下谢谢！！！
;;;;;;;;;;;多重串接;;;;;;;;;;;;;
(defun c:hj (/ join-ss rep1 len entnam enti)
(setvar "CMDECHO" 0)
(setq join-ss (ssget '((-4 . "<OR")
(0 . "LINE")
(0 . "ARC")
(-4 . "<AND")
(0 . "POLYLINE")
(70 . 0)
(-4 . "AND>")
(-4 . "<AND")
(0 . "LWPOLYLINE")
(70 . 0)
(-4 . "AND>")
(-4 . "OR>")
)
)
)
(if (not join-ss)
(exit)
)
(vl-cmdf "_.undo" "begin")
(setq rep1 0)
(setq len (sslength join-ss))
(terpri)
(repeat len
(setq entnam (ssname join-ss rep1))
(setq enti (entget entnam))
(princ (strcat "\rProcessing line " (itoa (1+ rep1)) " of " (itoa len)))
(if enti
(if (or (= (cdr (assoc 0 enti)) "POLYLINE")
(= (cdr (assoc 0 enti)) "LWPOLYLINE")
)
(command "_.pedit" entnam "j" join-ss "" "x")
(command "_.pedit" entnam "y" "j" join-ss "" "x")
)
)
(setq rep1 (1+ rep1))
)
(vl-cmdf "_.undo" "end")
(setvar "CMDECHO" 1)
(princ)
)
...突然就不好用了...
那肯定得查变因
程序未变,那差异应在图面...
您未附上相关Dwg,无从查核 好的我现在就传给您，帮我指点指点下，谢谢！！
查一下这个变量(setvar "PEDITACCEPT" 1) 谢谢！自贡黄明儒 就是这个变量的问题，我把它改为0就可以了。非常感谢！ 不明白，串接是什么意思？ 就是（ PEDIT） 这个CAD的原命定。
页:
[1]