江南十笑 发表于 2019-11-15 11:46:47

如何用LISP画双线

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

x_s_s_1 发表于 2019-11-16 11:30:04

本帖最后由 x_s_s_1 于 2019-11-16 14:31 编辑

(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)
)

水吉空 发表于 2019-11-15 14:26:43

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

江南十笑 发表于 2019-11-15 17:12:28

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

搜了并没有我想要的

烟盒迷唇 发表于 2019-11-15 17:26:32

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

江南十笑 发表于 2019-11-16 14:02:30

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 发表于 2019-11-16 15:12:26

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

start4444 发表于 2019-11-16 15:16:42

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=172592&highlight=%CB%AB%CF%F2%C6%AB%D2%C6

sunny_8848 发表于 2019-11-17 10:09:19

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

多谢热心分享
页: [1]
查看完整版本: 如何用LISP画双线