帮助准备lisp程序

sayhi_sanjay1 · 发表于 2022-7-6 07:43:47

我正在努力准备我指挥生涯中的第一个lisp，并画出我这样写的4“无壁厚等径三通

 
(defun c:DET4()(asave)(command "PLINE" PAUSE "@114.30<270" "@210<0" "@114.30<90" "@47.85<180" "@47.85<90" "@114.30<180" "@47.85<270" "C"))

MSasu · 发表于 2022-7-6 07:53:40

谢谢Mircea，两种选择都有效。

制造单线/双线管（无壁厚）、单线/双线弯头（90°LR、90°SR、45°LR）（带中心线）、单线/双线三通/异径三通（带中心线）的任何指导线，异径管（同心、偏心[平面朝上或平面朝下）（带中心线）、对焊法兰、承插焊法兰、盲法兰（Ansi B16.5和B16.47A、B）（75#、125#、150#、300#、400#、600#、900#1500#、2500#）、大小阀门和所有额定值（闸阀、球阀、球阀、旋塞阀、蝶阀、横隔梁）、钢截面平面图和立面图、土木工程2d门窗和电气符号。

MSasu · 发表于 2022-7-6 07:54:53

如果我想添加比..更多的行和一个lisp。。？

这样地

copy

(defun c:ET4( / [color=#ff0000]oldOsMode [/color])
[color=red](setq oldOsMode (getvar "OSMODE"))[/color]
[color=red](setvar "OSMODE" 0)[/color]
(asave)
(command "PLINE" PAUSE "@114.30<270" "@210<0" "@114.30<90" "@47.85<180" "@47.85<90" "@114.30<180" "@47.85<270" "C")
[color=red](setvar "OSMODE" oldOsMode)[/color]
)

如果需要任何修改，请检查并致电mee

sayhi_sanjay1 · 发表于 2022-7-6 08:02:54

很高兴我能帮助你。不客气！

此外，感谢您修复您的帖子。

sayhi_sanjay1 · 发表于 2022-7-6 08:09:41

你能帮我查一下管道线路lisp吗

MSasu · 发表于 2022-7-6 08:12:05

copy

(defun c:ET4( / oldOsMode pointTemp DtoR )
(defun DtoR( angle / ) (* (/ angle 180.0) pi))
(setq oldOsMode (getvar "OSMODE"))
(setvar "OSMODE" 0)
;(asave)
(setq pointTemp (getpoint "Start point: "))
(command "PLINE" pointTemp
                 (setq pointTemp (polar pointTemp (DtoR 270) 114.30))
                 (setq pointTemp (polar pointTemp (DtoR   0) 210.00))
                 (setq pointTemp (polar pointTemp (DtoR  90) 114.30))
                 (setq pointTemp (polar pointTemp (DtoR 180)  47.85))
                 (setq pointTemp (polar pointTemp (DtoR  90)  47.85))
                 (setq pointTemp (polar pointTemp (DtoR 180) 114.30))
                 (setq pointTemp (polar pointTemp (DtoR 270)  47.85))
                 "C")
(setvar "OSMODE" oldOsMode)
)

任何评论，我试图与mline，但如果你有一些比这更容易的事情，请告诉我。

MSasu · 发表于 2022-7-6 08:20:45

sayhi_sanjay1 · 发表于 2022-7-6 08:22:34

Thanks alot i have tried and complete for all and its work perfact.

Thanks once again

sayhi_sanjay1 · 发表于 2022-7-6 08:31:58

To draw pipe in double line i have wrote like this

copy

 (defun c:DPH()(asave)(command "-layer" "m" "center" "lt" "center" "" "c" "8" "" "m" "pipe" "lt" "continuous" "" "c" "4" "" "")(command "MLINE" "S" "21.34" PAUSE PAUSE "")(command "explode" "l")(command "offset" "10.67" pause pause "" )(command "change" "l" "" "p" "la" "center" "c" "bylayer" "lt" "bylayer" "" "")) (defun c:DP3F()(asave)(command "-layer" "m" "center" "lt" "center" "" "c" "8" "" "m" "pipe" "lt" "continuous" "" "c" "4" "" "")(command "MLINE" "S" "26.67" PAUSE PAUSE "")(command "explode" "l")(command "offset" "13.34" pause pause "" )(command "change" "l" "" "p" "la" "center" "c" "bylayer" "lt" "bylayer" "" ""))

check and tel mee if any modification is requred

MSasu · 发表于 2022-7-6 08:34:10

Glad I could help you. You're entirely welcome!

Also, thank you for fixing your posts.

[编程交流] 帮助准备lisp程序

发表回复

精选推荐