帮忙
下面这个总是出现 错误: 输入的点对中含有多余的 cdrs
(defun c:gsx()
(setvar "cmdecho" 0)
(setq aa (ssget "x" '((0 . "LWPOLYLINE") (8 . "JZD"))))
(setq i 0)
(setq n (sslength aa))
(repeat n
(setq a (ssname aa i)i (+ i 1))
(setq g (entget a)zdh (substr (cddr(nth 1 (cdr g))) 6))
(setq dlh (cddr(nth 3 (cdr g))))
(setq dlh1 atoi(dlh) zdh1 atoi(zdh))
(setq g1 (subst (cons 38 dlh1) (assoc 38 g) g)g2 (subst (cons 39 zdh1) (assoc 39 g) g))
(entmod g1)
(entmod g2)
(entupd a)
)
)
页:
[1]