社区 › AutoLISP/Visual LISP 编程技术 › 求助，画线和偏移同步进行，可能实现吗？

nfr 发表于 2013-1-19 22:34:16

求助，画线和偏移同步进行，可能实现吗？

本帖最后由 nfr 于 2013-1-20 22:54 编辑

yjr111 发表于 2013-1-19 22:34:17

本帖最后由 yjr111 于 2013-1-19 23:46 编辑

(defun c:tt(/ p1 p2 e dis )
(setvar 'cmdecho 0)
(vl-cmdf "line"(setq p1(getpoint"\n直线起点"))
    (setq p2(getpoint p1"\n直线端点"))
    ""
    )
(setq e(entlast))
(if *dis*
    (setq dis (getdist (strcat"\n输入偏移距离<" (rtos *dis* 2 2)">")))
    (setq dis (getdist (strcat"\n输入偏移距离<" ">")))
    )
(if dis (setq *dis* dis)(setqdis *dis*))
(setq n 1)
(while(and(< n 3)(setq p1(getpoint"\n偏移方向")))
    (if p1(vl-cmdf "offset" dis e p1 ""))
    (setq n(1+ n))
    )
(if (and(not p1)(< n 2))
    (progn
    (vla-offset (vlax-ename->vla-object e)dis)
    (vla-offset (vlax-ename->vla-object e)(* -1 dis))
    )
)
(princ)
)

iubo1932 发表于 2013-1-19 22:48:41

为什么不直接使用多线呢

nfr 发表于 2013-1-19 22:56:49

多线经常设置比较麻烦，所以想能不能快速设置

nfr 发表于 2013-1-19 23:44:10

yjr111 发表于 2013-1-19 23:38 static/image/common/back.gif


虽然第二步和第三步反过来了，但是已经可以满足我的日常使用了，非常感谢111

yjr111 发表于 2013-1-19 23:47:52

刚发现一点问题，请重新复制代码

nfr 发表于 2013-1-20 00:00:34

yjr111 发表于 2013-1-19 23:47 static/image/common/back.gif
刚发现一点问题，请重新复制代码

更新这么快，非常感谢

tianyi1230 发表于 2013-1-20 10:22:50

啥都看不见啊

完整武器 发表于 2013-1-20 22:25:09

这个内容怎么看不到的了

mac 发表于 2013-1-26 23:31:47

太不够意气

查看完整版本: 求助，画线和偏移同步进行，可能实现吗？