mdbdesign 发表于 2022-7-6 09:59:02

李，周末你会暂时停工，所以你有很多时间。不要着急，是周末：玩得开心！

fixo 发表于 2022-7-6 10:01:56

嗨，M！
 
这是一个简单的参数化lisp
换上你的西装
 
O
杜。LSP

Lee Mac 发表于 2022-7-6 10:02:53

 
干杯，看看我能为你做什么

mdbdesign 发表于 2022-7-6 10:05:51

谢谢奥列格，现在我有时间继续学习，而不是浪费时间画画。我现在很高兴。我今天会买一瓶，等你们来看我。
You too Lee（加拿大的饮酒限制为19岁）

Lee Mac 发表于 2022-7-6 10:09:54

 
非常感谢-看来Fixo击中了要害
 
周末愉快
 
李

rbeldua 发表于 2022-7-6 10:13:23

嗨，伙计们。。。。我是新来的，只是一个想法。。。有可能有一个Lisp程序像弯头软风管，除了它走直，使肘部也一样，像管道Lisp程序和wpipe。。。如果我能有一个这样的Lisp程序，那就太好了。。。

Lee Mac 发表于 2022-7-6 10:15:22

我不久前做了这个，不确定它是否有用
 

(defun c:duct(/ *error* oVars vLst p1 p2 vEnt i PntEve PntOdd cAngE sPtE ePtE cAngO sPtO ePtO
               last_pt1 last_pt2)
(defun *error*(msg)
   (if oVars
   (mapcar 'setvar vLst oVars))
   (princ (strcat "\nError: " (strcase msg)))
   (princ))
(setq vLst'("CMDECHO" "CLAYER" "FILLMODE" "OSMODE" "PLINEWID")
       oVars (mapcar 'getvar vLst))
(setvar "CMDECHO" 0)
(setvar "FILLMODE" 0)
(if (not (tblsearch "LAYER" "DUCT"))
   (command "-layer" "M" "DUCT" "_C" "1" "DUCT" "")
   (setvar "CLAYER" "DUCT"))
(vl-load-com)
(if (and (setq p1 (getpoint "\nSpecify First Point: ")
                p2 (getpoint p1 "\nIndicate Direction of Duct: ")))
   (progn
   (setvar "PLINEWID" 6)
   (setvar "OSMODE" 0)
   (command "_pline" p1 (polar p1 (angle p1 p2) 2.0) "_arc")
   (while (> (getvar "CMDACTIVE") 0) (command pause))
   (setq vEnt (vlax-ename->vla-object (entlast))
         i    2.0)
   (while (and (setq PntEve (vlax-curve-GetPointatDist vEnt i)
                     PntOdd (vlax-curve-GetPointatDist vEnt (setq i (1+ i)))))
       (setq cAngE (+ (/ pi 2)
                      (angle '(0 0 0)
                           (vlax-curve-getFirstDeriv
                               vEnt
                               (vlax-curve-GetParamAtPoint vEnt PntEve)))))
       (command "_line"
                (setq sPtE (polar PntEve cAngE 4.0))
                (setq ePtE (polar PntEve (+ pi cAngE) 4.0))
                "")
       (if (and last_pt1 last_pt2)
         (progn (command "_line" last_pt1 sPtE "") (command "_line" last_pt2 ePtE "")))
       (setq cAngO (+ (/ pi 2)
                      (angle '(0 0 0)
                           (vlax-curve-getFirstDeriv
                               vEnt
                               (vlax-curve-GetParamAtPoint vEnt PntOdd)))))
       (command "_line"
                (setq sPtO (polar PntOdd cAngO 3.0))
                (setq ePtO (polar PntOdd (+ pi cAngO) 3.0))
                "")
       (command "_line" sPtE sPtO "")
       (command "_line" ePtE ePtO "")
       (setq last_pt1 sPtO
             last_pt2 ePtO)
       (setq i (1+ i)))
   (vla-put-ConstantWidth vEnt 0.0)
   (vla-put-Color vEnt acblue))
   (princ "\n<!> Points Specified Incorrectly <!>"))
(mapcar 'setvar vLst oVars)
(princ))

Lee Mac 发表于 2022-7-6 10:19:47

或者是CAB提供的服务
Flex 17驾驶室。LSP

tzframpton 发表于 2022-7-6 10:23:23

实际上，沼泽那边有人有一整套HVAC Lisp程序套件。我认为CAB有3到4种不同的flex LISP。

Lee Mac 发表于 2022-7-6 10:25:08

我认为蒂姆·斯潘格勒（TimSpangler）也在这里的某个地方张贴了一整套套房。
页: 1 [2]
查看完整版本: 管道弯头