【画四条线工具】

daidong013

回复 ljpnb 的帖子


是用了MLINE线
命令：TT  可惜经常出错,然后可以用mline
前面可以定义一次宽度，后面只能以比例的形式了！~~
错误: 参数类型错误: numberp: nil

xyp1964

2. ;; 需要e派工具箱的支持
   
3. (defun c:tt (/ ilst ll1 ll2)
   
4.   (cmdla0)
   
5.   (defun main-pro ()
   
6.     (if (and (setq s1 (car (entsel "\n选择多义线: ")))
   
7.       (member (xyp-get-dxf 0 s1) '("POLYLINE" "LWPOLYLINE"))
   
8. )
   
9.       (progn
   
10. (xyp-Group0)
    
11. (setq ptn (xyp-get-Vertexs s1 0)
    
12.        dd1 (* d1 0.5)
    
13.        dd2 (* d2 0.5)
    
14. )
    
15. (XYP-DLINE dd1 dd1 0 ptn nil "内线" 1)
    
16. (XYP-DLINE dd2 dd2 0 ptn nil "外线" 3)
    
17. (if (= bo1 "1")
    
18.    (xyp-erase s1)
    
19. )
    
20. (xyp-Group1)
    
21.       )
    
22.     )
    
23.   )
    
24.   (setq ll1 '(d1 d2 bo1)
    
25. ll2 '(60. 100. "0")
    
26.   )
    
27.   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))
    
28.   (xyp-initSet ll1 ll2)
    
29.   (setq ilst '(("d1" "内线间距" "real" "8")
    
30.         ("d2" "外线间距" "real" "8")
    
31.         "spacer;"
    
32.         ("bo1" "原线删除" "bool")
    
33.         "spacer;"
    
34.         ("jbcs" "缺省参数" "button1" "(ajbcs)")
    
35.         "spacer;"
    
36.        )
    
37.   )
    
38.   (if (= (xyp-Dcl-Init Ilst "【绘制四线】" t) 1)
    
39.     (main-pro)
    
40.   )
    
41.   (cmdla1)
    
42. )

;; 需要e派工具箱的支持<br /> (defun c:tt (/ ilst ll1 ll2)<br />   (cmdla0)<br />   (defun main-pro ()<br />     (if (and (setq s1 (car (entsel "\n选择多义线: ")))<br />       (member (xyp-get-dxf 0 s1) '("POLYLINE" "LWPOLYLINE"))<br /> )<br />       (progn<br /> (xyp-Group0)<br /> (setq ptn (xyp-get-Vertexs s1 0)<br />        dd1 (* d1 0.5)<br />        dd2 (* d2 0.5)<br /> )<br /> (XYP-DLINE dd1 dd1 0 ptn nil "内线" 1)<br /> (XYP-DLINE dd2 dd2 0 ptn nil "外线" 3)<br /> (if (= bo1 "1")<br />    (xyp-erase s1)<br /> )<br /> (xyp-Group1)<br />       )<br />     )<br />   )<br />   (setq ll1 '(d1 d2 bo1)<br /> ll2 '(60. 100. "0")<br />   )<br />   (defun ajbcs () (xyp-Multiple-Settile ll1 ll2))<br />   (xyp-initSet ll1 ll2)<br />   (setq ilst '(("d1" "内线间距" "real" "8")<br />         ("d2" "外线间距" "real" "8")<br />         "spacer;"<br />         ("bo1" "原线删除" "bool")<br />         "spacer;"<br />         ("jbcs" "缺省参数" "button1" "(ajbcs)")<br />         "spacer;"<br />        )<br />   )<br />   (if (= (xyp-Dcl-Init Ilst "【绘制四线】" t) 1)<br />     (main-pro)<br />   )<br />   (cmdla1)<br /> )

daidong013

回复 xyp1964 的帖子

院长：两头可以不要封闭吗？！~~

ljpnb

daidong013 发表于 2011-7-4 13:09
回复 ljpnb 的帖子

对于4线的问题，我想换种方法，就是外线和内线分成2个双线，如果画好外线，内线自动生成，这样宽度可以任意控制。。。

chengx2000

回复 xyp1964 的帖子

函数xyp-get-Vertexs、XYP-DLINE、cmdla0和cmdla1版主都未说明白，这个不算数。

ljpnb

chengx2000 发表于 2011-7-4 21:14
回复 xyp1964 的帖子

函数xyp-get-Vertexs、XYP-DLINE、cmdla0和cmdla1版主都未说明白，这个不算数。

不是说了需要e派工具箱的支持

daidong013

回复 ljpnb 的帖子

感谢【ljpnb】的热心帮助！

faith66

15楼还想要院长的自定义函数？

tist

这个不错啊，顶起

huyong

这个好，要顶起来。