SPL线画出来就是三根

357785513

大家好,先看图吧,


我想画SPL线,但画出来,只有一根,再进行两边偏移,才变成三根线,我想让画SPL线像画MLINE线一样,可以一画就有几根线,
就是画SPL线时,一画就有三条线,有没有什么好的办法,或者程序,各位

357785513

个这问题对咱太重要了，咱自己顶一下

357785513

那位高手看看有没有什么办法，可不可以解决一下这个问题呀，我再顶顶，要不然就得沉了

357785513

咱再顶,要不然真得沉了

Gu_xl

357785513 发表于 2011-11-14 12:50
咱再顶,要不然真得沉了

1. (defun c:tt()
   
2.   (setq ent (entlast))
   
3.   (command "_spline")
   
4.   (while (= 1 (getvar "cmdactive"))
   
5.   (command pause)
   
6.     )
   
7.   (setq new (entlast))
   
8.   (if (not (equal new ent))
   
9.     (progn
   
10.       (setq d (getreal "\n 偏距:"))
    
11.       (if d
    
12.         (progn
    
13.           (VL-CATCH-ALL-APPLY 'vla-Offset (list (setq new (vlax-ename->vla-object new)) d))
    
14.           (VL-CATCH-ALL-APPLY 'vla-Offset (list new (- d)))
    
15.           )
    
16.         )
    
17.       )
    
18.     )
    
19.   (princ)
    
20.   )
    

(defun c:tt()<br />   (setq ent (entlast))<br />   (command "_spline")<br />   (while (= 1 (getvar "cmdactive"))<br />   (command pause) <br />     )<br />   (setq new (entlast))<br />   (if (not (equal new ent))<br />     (progn<br />       (setq d (getreal "\n 偏距:"))<br />       (if d<br />         (progn<br />           (VL-CATCH-ALL-APPLY 'vla-Offset (list (setq new (vlax-ename->vla-object new)) d))<br />           (VL-CATCH-ALL-APPLY 'vla-Offset (list new (- d)))<br />           )<br />         )<br />       )<br />     )<br />   (princ)<br />   )<br />

357785513

谢谢楼主，楼主的程序不错，比我画完再偏移要强，可改为默认认次输入的
(setq d (getreal "\n 偏距:"))这句可怎么改呀，请赐教

357785513

偶查看一贴孖,顶一下

357785513

偶查看一贴孖,顶一下

wanghangshun

的确是个好方法，在处理地形图时经常会用到。