[编程申请]：双线，双曲线

露水2

在某一个软件上看到绘制园林路的方法
A:直线路
1 双线不是块，双线中的每条线都是一个单独的直线
2不用Mline命令
3 双线是用交互命令中完成，即双线的点是交互得到的
4 在交互得到点的同时，能够显示所要画的双线的橡皮筋！
5 双线是有宽度的，且可以改变！
B:自由路
1,输入道路宽度。
2，画的时候就是和spline一样，在命令spline结束以后，spline线会变成道路宽度的双线。
3，双线还是spline，控制点好象多了，这样还可以编辑（修剪、倒角）。
对建筑规划中还是能提高效率的，请高手能不能实现？谢谢！

eachy

用建筑软件中的绘制墙线也不错，只不过“墙”厚些

露水2

最初由 eachy 发布
[B]用建筑软件中的绘制墙线也不错，只不过“墙”厚些 [/B]

思路还可以
但是画墙线计算很慢
那双曲线呢？

snoopychen

前段时间编过一个可以变化起始变宽度的多线绘制程序，可能和1楼楼主的第一个要求类似

帖子在这里
http://www.xdcad.net/forum/showt ... 2898151#post2898151

演示本站看不了，放在这里
http://autolisper.googlepages.com/widthchange.gif

露水2

最初由 snoopychen 发布
[B]前段时间编过一个可以变化起始变宽度的多线绘制程序，可能和1楼楼主的第一个要求类似

帖子在这里
http://www.xdcad.net/forum/showt ... 2898151#post2898151

演示本站看不了，放?.. [/B]

能不能把第二个搞定
你的那个和咱要的程序有点靠近，能不能再改成平行的。
我用mline做的简单的
(defun C:test ()
(setvar "cmdecho" 0)
(setq en (getreal"\n道路宽度(1.5):"))
(if (null en)(setq en 1.5))
(command "mline" "s" en)
(princ)
)

snoopychen

1.既然mline可以搞定，何必要编
2.不如就用spline进行offset，找个双向offset实体的程序就可以随便实现了。
具体的编写自己搞定会更有趣，主要是思路通了就行吧。

露水2

(defun c:test (/ getds obj varst)
(vl-load-com)(setq varst (getvar "clayer"))
  (cond ((null(tblsearch "layer" "my-offset-layer"))
    (vl-cmdf ".layer" "n" "my-offset-layer" "")(setvar "clayer" "my-offset-layer"))   
  (t (setvar "clayer" "my-offset-layer"))
    )   
(initget 2)
(setq getds (getdist "\n输入偏移距离<可直接量取>:"))
(if (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
   (vlax-for obj (vla-get-activeselectionset
            (vla-get-activedocument (vlax-get-acad-object)))
     (vla-offset obj getds)(vla-offset obj (* getds -1))
     )(vlax-release-object obj)
  )(setvar "clayer" varst)
    )


这个是双向偏移的
怎么改成先给路宽，然后执行spline 结束后，再运行上面这段代码?

snoopychen

试试

2. 
   
3. (defun c:test (/ getds ent)
   
4.   (initget 2)
   
5.   (setq getds (getdist "\n输入偏移距离<可直接量取>:"))
   
6.   (prompt "\nDraw your Spline.")
   
7.   (command "SPLINE")
   
8.   (while (> (getvar "CMDACTIVE") 0)
   
9.     (command pause)
   
10.   )
    
11.   (setq ent (entlast))
    
12.   (doubleoffset ent getds)
    
13. )
    
14. (defun doubleoffset (obj getds / varst nowlayer)
    
15.   (vl-load-com)
    
16.   (setq varst (getvar "clayer"))
    
17.   (setq nowlayer (cdr (assoc 8 (entget obj))))
    
18.   (setvar "clayer" nowlayer)
    
19.   (setq obj (vlax-ename->vla-object obj))
    
20.   (vla-offset obj getds)
    
21.   (vla-offset obj (* getds -1))
    
22.   (setvar "clayer" varst)
    
23. )
    

<br /> (defun c:test (/ getds ent)<br />   (initget 2)<br />   (setq getds (getdist "\n输入偏移距离<可直接量取>:"))<br />   (prompt "\nDraw your Spline.")<br />   (command "SPLINE")<br />   (while (> (getvar "CMDACTIVE") 0)<br />     (command pause)<br />   )<br />   (setq ent (entlast))<br />   (doubleoffset ent getds)<br /> )<br /> (defun doubleoffset (obj getds / varst nowlayer)<br />   (vl-load-com)<br />   (setq varst (getvar "clayer"))<br />   (setq nowlayer (cdr (assoc 8 (entget obj))))<br />   (setvar "clayer" nowlayer)<br />   (setq obj (vlax-ename->vla-object obj))<br />   (vla-offset obj getds)<br />   (vla-offset obj (* getds -1))<br />   (setvar "clayer" varst)<br /> )<br />

露水2

谢谢snoopychen  
搞定了
我修改了一下,1\输入的值为总宽度,2\删除原来的线.
(defun c:test (/ getds ent)
(setvar "cmdecho" 0)
  (initget 2)
  (setq 2getds (getdist "\n输入自由路宽度<可直接量取>(1.5):"))
  (if (null 2getds) (setq 2getds 1.5))
  (setq getds (/ 2getds 2))
  (prompt "\nDraw your Spline.")
  (command "SPLINE")
  (while (> (getvar "CMDACTIVE") 0)
    (command pause)
  )
  (setq ent (entlast))
  (doubleoffset ent getds)
)
(defun doubleoffset (obj getds / varst nowlayer)
  (vl-load-com)
  (setq varst (getvar "clayer"))
  (setq nowlayer (cdr (assoc 8 (entget obj))))
  (setvar "clayer" nowlayer)
  (setq obj (vlax-ename->vla-object obj))
  (vla-offset obj getds)
  (vla-offset obj (* getds -1))
  (entdel ent)
  (setvar "clayer" varst)
(princ)
)

aeo

lisp要写出cad的dwall里的拖动,很难呀.
比如捕捉,比如里面打一透明命令,极轴等.

雨箭风刀

透明命令还好，极轴比较麻烦，不值得做

雨箭风刀

透明命令还好，极轴比较麻烦，不值得做

fsxm

透明只要在里面加个等待输入如getstring***就行
捕捉已做过了的
只要肯做,极轴也很好做的~
可能效果不与CAD的完一样不过可以实现极轴,捕捉等~