如何用LISP画双线

江南十笑

用多线段画一条30宽的直线（图层 S-SLAB-BARS），然后向两边各偏移50，删除中间的原线，形成间距100的双线。如何用LISP实现？

水吉空

太简单了，论坛里一搜一堆

江南十笑

水吉空 发表于 2019-11-15 14:26
太简单了，论坛里一搜一堆

搜了  并没有我想要的

烟盒迷唇

太简单了，不会就搜搜拿来修改就得了

x_s_s_1

(defun c:test (/ en lay)
  (setq lay(getvar "clayer"))
  (setvar "clayer"  "S-SLAB-BARS")
  (command "_.PLINE")
  (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
  (setq en( vlax-ename->vla-object (entlast)))
  (vla-offset en 50)
  (vla-offset en -50)
  (entdel en)
  (setvar "clayer" lay)
)

江南十笑

x_s_s_1 发表于 2019-11-16 11:30
(defun c:test (/ en lay)
  (setq lay(getvar "clayer"))
  (setvar "clayer"  "S-SLAB-BARS")

谢谢大佬                           

sunny_8848

命令: test ; 错误: AutoCAD 变量设置被拒绝: "clayer" "S-SLAB-BARS"

start4444

http://bbs.mjtd.com/forum.php?mo ... B%CF%F2%C6%AB%D2%C6

sunny_8848

start4444 发表于 2019-11-16 15:16
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=172592&highlight=%CB%AB%CF%F2%C6%AB%D2%C6

多谢热心分享