level 2
llswollen
楼主
(defun c:cs(/ bgl n i ty5 xx5 p11 p12 ysc)
(setvar "osmode" 0)
(setq bgl (ssget "x" '((0 . "line")(8 . "标高"))))
(command "toffotherlayer" bgl "")
(setq n (sslength bgl))
(setq i 0)
(repeat n
(setq ty5 (ssname bgl i))
(setq xx5 (entget ty5))
(setq p11 (cdr(assoc 10 xx5)))
(setq p11 (list (car p11) (- (cadr p11) 200)))
(setq p12 (list (+ (car p11) 1000) (+ (cadr p11) 1500)))
(setq ysc (ssget "c" p12 p11))
(command "erase" ysc "")
)
(command "layon" "")
(prin1)
)
运行总显示
参数类型错误: numberp: nil
不知道为什么
2018年02月08日 03点02分
1
(setvar "osmode" 0)
(setq bgl (ssget "x" '((0 . "line")(8 . "标高"))))
(command "toffotherlayer" bgl "")
(setq n (sslength bgl))
(setq i 0)
(repeat n
(setq ty5 (ssname bgl i))
(setq xx5 (entget ty5))
(setq p11 (cdr(assoc 10 xx5)))
(setq p11 (list (car p11) (- (cadr p11) 200)))
(setq p12 (list (+ (car p11) 1000) (+ (cadr p11) 1500)))
(setq ysc (ssget "c" p12 p11))
(command "erase" ysc "")
)
(command "layon" "")
(prin1)
)
运行总显示
参数类型错误: numberp: nil
不知道为什么
