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

nfr

yjr111

2. (defun c:tt(/ p1 p2 e dis )
   
3.   (setvar 'cmdecho 0)
   
4.   (vl-cmdf "line"(setq p1(getpoint"\n直线起点"))
   
5.     (setq p2(getpoint p1"\n直线端点"))
   
6.     ""
   
7.     )
   
8.   (setq e(entlast))
   
9.   (if *dis*
   
10.     (setq dis (getdist (strcat"\n输入偏移距离<" (rtos *dis* 2 2)">")))
    
11.     (setq dis (getdist (strcat"\n输入偏移距离<" ">")))
    
12.     )
    
13.   (if dis (setq *dis* dis)(setq  dis *dis*))
    
14.   (setq n 1)
    
15.   (while(and(< n 3)(setq p1(getpoint"\n偏移方向")))
    
16.     (if p1(vl-cmdf "offset" dis e p1 ""))
    
17.     (setq n(1+ n))
    
18.     )
    
19.   (if (and(not p1)(< n 2))
    
20.     (progn
    
21.     (vla-offset (vlax-ename->vla-object e)dis)
    
22.     (vla-offset (vlax-ename->vla-object e)(* -1 dis))
    
23.     )
    
24.   )
    
25.   (princ)
    
26.   )

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

iubo1932

为什么不直接使用多线呢

nfr

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

nfr

yjr111 发表于 2013-1-19 23:38

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

yjr111

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

nfr

yjr111 发表于 2013-1-19 23:47
刚发现一点问题，请重新复制代码

更新这么快，非常感谢

tianyi1230

啥都看不见啊

完整武器

这个内容怎么看不到的了

mac

太不够意气