enn09 发表于 2013-8-15 09:50:30

求大神改编个lsp

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



(defun C:TT (/   ANG0   ANG180 ANG270 ANG90 PLWIDPT01   PT02
      PT03   PT04   PT05   PT06PT1 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 发表于 2013-8-16 07:56:15

本帖最后由 ZZXXQQ 于 2013-8-17 07:37 编辑

是这个意思吧(defun C:TT (/   ANG0   ANG180 ANG270 ANG90 PLWIDPT01   PT02
      PT03   PT04   PT05   PT06PT1 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 "")
(command "._pline" "none" PT02 "none" PT1 "none" PT2 "none" PT05"")
(setvar "PLINEWID" PLWID)
(princ)
)

enn09 发表于 2013-8-16 08:59:35

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

enn09 发表于 2013-8-16 10:06:42

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

springwillow 发表于 2013-8-16 10:10:33

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

enn09 发表于 2013-8-16 15:36:57

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

ZZXXQQ 发表于 2013-8-17 07:38:45

沙发已改，再试试。

enn09 发表于 2013-8-17 10:39:52

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

依然小小鸟 发表于 2018-10-23 11:26:26

不错的程序
页: [1]
查看完整版本: 求大神改编个lsp