求大神改编个lsp

enn09

这是一个画板正筋的源码，希望大神做一点小改动，板是弯钩的，怎么改成画直钩的。像图上那样



(defun C:TT (/     ANG0   ANG180 ANG270 ANG90 PLWID  PT01   PT02
      PT03   PT04   PT05   PT06  PT1 PT10   PT2    PT20
     )
  (princ "\n画板正筋")
(command "layer" "m" "REIN" "Color" 1 "" "")
  (setq PT1 (getpoint "\n指定第一点："))
  (setq PT2 (getpoint PT1 "\n指定第二点："))
  (setq ANG0   (angle PT1 PT2);_pt1到pt2的角度，返回弧度值
ANG180 (angle PT2 PT1)
  )

  (if (and (> ANG0 (* 0.5 pi)) (<= ANG0 (* 1.5 pi))) ;_角度大于90小于等于270
    (setq ANG90  (+ ANG0 (* 1.5 pi))
   ANG270 (+ ANG0 (* 0.5 pi))
    )
    (setq ANG90  (+ ANG0 (* 0.5 pi))
   ANG270 (+ ANG0 (* 1.5 pi))
    )
  )

  (setq PT10 (polar PT1 ANG0 50)
PT02 (polar PT10 ANG90 50)
PT03 (polar PT10 ANG270 50)
PT01 (polar PT02 ANG0 120)
  )


  (setq PT20 (polar PT2 ANG180 50)
PT04 (polar PT20 ANG270 50)
PT05 (polar PT20 ANG90 50)
PT06 (polar PT05 ANG180 120)
  )

  (setq PLWID (getvar "PLINEWID"))
  (setvar "PLINEWID" 30);_设置线宽为30
  (command "._pline"    "none"  PT01    "none"  PT02    "a"
    "none"  PT03    "l"    "none"  PT04    "a"    "none"
    PT05    "l"    "none"  PT06    ""
   )
  (setvar "PLINEWID" PLWID)
  (princ)
)

ZZXXQQ

是这个意思吧

2. (defun C:TT (/     ANG0   ANG180 ANG270 ANG90 PLWID  PT01   PT02
   
3.       PT03   PT04   PT05   PT06  PT1 PT10   PT2    PT20)
   
4. (princ "\n画板正筋")
   
5. (command "layer" "m" "REIN" "Color" 1 "" "")
   
6. (setq PT1 (getpoint "\n指定第一点："))
   
7. (setq PT2 (getpoint PT1 "\n指定第二点："))
   
8. (setq ANG0   (angle PT1 PT2);_pt1到pt2的角度，返回弧度值
   
9.        ANG180 (angle PT2 PT1))
   
10. (if (and (> ANG0 (* 0.5 pi)) (<= ANG0 (* 1.5 pi))) ;_角度大于90小于等于270
    
11.   (setq ANG90  (+ ANG0 (* 1.5 pi))
    
12.         ANG270 (+ ANG0 (* 0.5 pi)))
    
13.   (setq ANG90  (+ ANG0 (* 0.5 pi))
    
14.         ANG270 (+ ANG0 (* 1.5 pi)))
    
15. )
    
16. (setq PT10 (polar PT1 ANG0 50)
    
17.        PT02 (polar PT10 ANG90 50)
    
18.        PT03 (polar PT10 ANG270 50)
    
19.        PT01 (polar PT02 ANG0 120))
    
20. (setq PT20 (polar PT2 ANG180 50)
    
21.        PT04 (polar PT20 ANG270 50)
    
22.        PT05 (polar PT20 ANG90 50)
    
23.        PT06 (polar PT05 ANG180 120))
    
24. (setq PLWID (getvar "PLINEWID"))
    
25. (setvar "PLINEWID" 30);_设置线宽为30
    
26. ; (command "._pline" "none" PT01 "none" PT02 "a"
    
27. ;    "none" PT03 "l" "none" PT04 "a" "none" PT05 "l" "none" PT06 "")
    
28. (command "._pline" "none" PT02 "none" PT1 "none" PT2 "none" PT05"")
    
29. (setvar "PLINEWID" PLWID)
    
30. (princ)
    
31. )
    

(defun C:TT (/     ANG0   ANG180 ANG270 ANG90 PLWID  PT01   PT02<br />       PT03   PT04   PT05   PT06  PT1 PT10   PT2    PT20)<br /> (princ "\n画板正筋")<br /> (command "layer" "m" "REIN" "Color" 1 "" "") <br /> (setq PT1 (getpoint "\n指定第一点："))<br /> (setq PT2 (getpoint PT1 "\n指定第二点："))<br /> (setq ANG0   (angle PT1 PT2);_pt1到pt2的角度，返回弧度值<br />        ANG180 (angle PT2 PT1))<br /> (if (and (> ANG0 (* 0.5 pi)) (<= ANG0 (* 1.5 pi))) ;_角度大于90小于等于270<br />   (setq ANG90  (+ ANG0 (* 1.5 pi))<br />         ANG270 (+ ANG0 (* 0.5 pi)))<br />   (setq ANG90  (+ ANG0 (* 0.5 pi))<br />         ANG270 (+ ANG0 (* 1.5 pi)))<br /> )<br /> (setq PT10 (polar PT1 ANG0 50)<br />        PT02 (polar PT10 ANG90 50)<br />        PT03 (polar PT10 ANG270 50)<br />        PT01 (polar PT02 ANG0 120))<br /> (setq PT20 (polar PT2 ANG180 50)<br />        PT04 (polar PT20 ANG270 50)<br />        PT05 (polar PT20 ANG90 50)<br />        PT06 (polar PT05 ANG180 120))<br /> (setq PLWID (getvar "PLINEWID"))<br /> (setvar "PLINEWID" 30);_设置线宽为30<br /> ; (command "._pline" "none" PT01 "none" PT02 "a"<br /> ;    "none" PT03 "l" "none" PT04 "a" "none" PT05 "l" "none" PT06 "")<br /> (command "._pline" "none" PT02 "none" PT1 "none" PT2 "none" PT05"")<br /> (setvar "PLINEWID" PLWID)<br /> (princ)<br /> )<br />

enn09

对的对的，万分感谢啊~~~~~~~~~~~~~版主真是好人啊，感谢感谢！！！

enn09

如果弯钩能改成45度就更好了，这样看着还不美观

springwillow

探索者不是有这个东西吗、还要自己编？莫非是想整什么集成的程序？

enn09

是有啊，但是我们院都是有自己的出图线型，探索者画完还得刷，一次性搞定不更好么

ZZXXQQ

沙发已改，再试试。

enn09

看到了，十分感谢，感谢版主zz，感谢明经。我是菜鸟，以后会多在这里学习的

依然小小鸟

不错的程序