两条直线自动倒角请教

edata

lucas_3333 发表于 2014-3-5 08:19
E大，请问这个双线能否改为多段线PL？

完成是双线？

1. (defun c:2l(/ ent1 ent2 ent3 ent4  wwdy1 str1 pt1 pt2 dis1 ag1 pt1u pt2u sspl)
   
2.   (setq ent1 nil ent2 nil ent3 nil ent4 nil sspl nil)
   
3.   (defun sk_mkl(p1 p2)
   
4.   (entmakex
   
5.     (list
   
6.       '(0 . "line")
   
7.       (cons 10 p1)
   
8.       (cons 11 p2)
   
9.       )
   
10.     )
    
11.   )
    
12.   (setq cmd_old(getvar 'cmdecho))
    
13.   (setvar 'cmdecho 0)
    
14.   (or  wwdy (setq wwdy 6))
    
15.   (if(setq wwdy1 (getreal (strcat "\n请输入宽度<当前:"(rtos wwdy 2 3) ">:")))
    
16.     (setq wwdy wwdy1))  
    
17.   (setq str1 (rtos wwdy 2 2) sspl (ssadd))
    
18.   (prompt "\n  now dline width is: ")
    
19.   (prompt str1)
    
20.   (if(setq pt1 (getpoint "\n enter start point:"))
    
21.     (progn
    
22.   (while (setq pt2 (getpoint pt1 "\n enter next point:"))
    
23.     (redraw)
    
24.     (if (and ent1 ent2)
    
25.       (setq ent3 ent1
    
26.             ent4 ent2))
    
27.     (setq dis1 (* 0.5 wwdy))
    
28.     (setq ag1 (angle pt1 pt2))
    
29.     (setq pt1u (polar pt1 (+ ag1 1.5708) dis1))
    
30.     (setq pt2u (polar pt2 (+ ag1 1.5708) dis1))
    
31.     (setq pt1d (polar pt1 (- ag1 1.5708) dis1))
    
32.     (setq pt2d (polar pt2 (- ag1 1.5708) dis1))
    
33.     (setq ent1(sk_mkl pt1u pt2u)
    
34.           ent2(sk_mkl pt1d pt2d)
    
35.           pt1 pt2
    
36.       )
    
37.     (setvar "FILLETRAD" 0.0)
    
38.     (command "FILLET"  ent1 ent3)
    
39.     (command "FILLET"  ent2 ent4)
    
40.     (if(and ent1 ent2)
    
41.       (setq sspl(ssadd ent1 sspl)
    
42.             sspl(ssadd ent2 sspl)))
    
43.     (if(and ent3 ent4)
    
44.       (setq sspl(ssadd ent3 sspl)
    
45.             sspl(ssadd ent4 sspl)
    
46.           ))
    
47.     )
    
48.   ;;因为使用command函数调用pedit命令,有的ACAD版本命令不一样仅在2006测试通过
    
49.   (if (and sspl (> (sslength sspl) 2))
    
50.     (command "pedit" "m" sspl "" "j" "0.00" "")
    
51.     )
    
52.   )
    
53.   )
    
54.   (if cmd_old (setvar 'cmdecho cmd_old))
    
55.   (princ)
    
56. )

(defun c:2l(/ ent1 ent2 ent3 ent4  wwdy1 str1 pt1 pt2 dis1 ag1 pt1u pt2u sspl)<br />   (setq ent1 nil ent2 nil ent3 nil ent4 nil sspl nil)<br />   (defun sk_mkl(p1 p2)<br />   (entmakex<br />     (list<br />       '(0 . "line")<br />       (cons 10 p1)<br />       (cons 11 p2)<br />       )<br />     )<br />   )<br />   (setq cmd_old(getvar 'cmdecho))<br />   (setvar 'cmdecho 0)<br />   (or  wwdy (setq wwdy 6))<br />   (if(setq wwdy1 (getreal (strcat "\n请输入宽度<当前:"(rtos wwdy 2 3) ">:")))<br />     (setq wwdy wwdy1))  <br />   (setq str1 (rtos wwdy 2 2) sspl (ssadd))<br />   (prompt "\n  now dline width is: ")<br />   (prompt str1)<br />   (if(setq pt1 (getpoint "\n enter start point:"))<br />     (progn<br />   (while (setq pt2 (getpoint pt1 "\n enter next point:"))<br />     (redraw)<br />     (if (and ent1 ent2)<br />       (setq ent3 ent1<br />             ent4 ent2))<br />     (setq dis1 (* 0.5 wwdy))<br />     (setq ag1 (angle pt1 pt2))<br />     (setq pt1u (polar pt1 (+ ag1 1.5708) dis1))<br />     (setq pt2u (polar pt2 (+ ag1 1.5708) dis1))<br />     (setq pt1d (polar pt1 (- ag1 1.5708) dis1))<br />     (setq pt2d (polar pt2 (- ag1 1.5708) dis1))<br />     (setq ent1(sk_mkl pt1u pt2u)<br />           ent2(sk_mkl pt1d pt2d)<br />           pt1 pt2<br />       )<br />     (setvar "FILLETRAD" 0.0)<br />     (command "FILLET"  ent1 ent3)<br />     (command "FILLET"  ent2 ent4)<br />     (if(and ent1 ent2)<br />       (setq sspl(ssadd ent1 sspl)<br />             sspl(ssadd ent2 sspl)))<br />     (if(and ent3 ent4)<br />       (setq sspl(ssadd ent3 sspl)<br />             sspl(ssadd ent4 sspl)<br />           ))<br />     )<br />   ;;因为使用command函数调用pedit命令,有的ACAD版本命令不一样仅在2006测试通过<br />   (if (and sspl (> (sslength sspl) 2))<br />     (command "pedit" "m" sspl "" "j" "0.00" "")<br />     )<br />   )<br />   )<br />   (if cmd_old (setvar 'cmdecho cmd_old))<br />   (princ)<br /> )

lucas_3333

edata 发表于 2014-3-5 15:34
完成是双线？

谢谢E大，难道不是画双线？虽然不是MlLINE,但差不多吧

edata

lucas_3333 发表于 2014-3-5 19:56
谢谢E大，难道不是画双线？虽然不是MlLINE,但差不多吧

少打了字，我的意思是完成了的双线是pl线，用pedit命令结合的pl线。

bai2000

测试：用pedit命令结合不了，出现“输入选项。。。。。。”

lucas_3333

edata 发表于 2014-3-6 10:06
少打了字，我的意思是完成了的双线是pl线，用pedit命令结合的pl线。

E大，我用2007 同2010测式了，看程序是自动合并多段线，但是实际还是输入Y然后输入J，然后回车才行

恕放之生命

学习一下。

fire9527

edata 发表于 2014-2-16 15:05
;简单修改by edata@mjtd

老大，能不能增加平行线的根数呢？如果能在程序运行时提示输入需要画的平行线根数就更好了！恳请老大出手

bai2000

bai2000

wyl219

edata 发表于 2014-2-16 15:05
;简单修改by edata@mjtd

关于 command "FILLET"
如果两条直线是交叉但是不接触的时候，是可以自动倒角的，
但是当两条直线是交叉并接触的时候，怎么控制让他按照相应的方式倒角？
比如原来两条直线是这个样子

命令执行完是这个样子

我怎么让他成这个样子？

谢谢了