VBA宏或Lisp例程
你推荐VBA或Lisp用于以下项目吗？https://www.elance.com/j/vba-macros-lisp-routine-3d-solid-modelling-autocad/35665239/
请让我知道，如果你有时间/专业知识来完成该项目！
AutoCAD的VBA宏或Lisp例程。docx文件 我认为Lisp将比这样的任务更可取 我同意fixo；VBA的长期可行性值得怀疑。坚持这两个人的Lisp程序。
或者，至少指定VB。NET和/或其他。NET变体。 谢谢你，这是非常有用的建议。 给你开始，只是擦伤，对不起
(defun C:ww(/ )
(setvar "cmdecho" 0)
(setvar "selectionpreview" 3)
(command "_ucsicon" "_off" )
(command "_ucsfollow" 0 )
(setvar "osmode" 1)
(setq pt (getpoint "\nSpecify new origin point of UCS: "))
(command "_zoom" "_c" pt (/ (distance (getvar "extmax")(getvar "extmin"))2.))
(command "_-view" "_seiso")
(setvar "osmode" 512)
(setq px (getpoint "\nSpecify point on positive portion of X-axis: "))
(setq py (getpoint "\nSpecify point on positive-Y portion of the UCS XY plane: "))
(command "_ucs" "_3p" pt px py)
(setvar "osmode" 512)
;;dummy values used:
(setq wp (getpoint pt "\nPick next point: "))
(setq w1 (list (car wp)(cadr wp)(+ (caddr wp) 750.))
w2 (list (+ (car w1)1350.)(cadr w1)(caddr w1))
w3 (list (car w2)(cadr w2)(+ (caddr w2) 2100.))
w4 (list (car w1)(cadr w1)(caddr w3)))
(setq wall (ssname (ssget "_C" pt wp (list (cons 0 "3dsolid")))0))
(command "_box" "_non" w1 "_non" (list (car w2)(+ (cadr w2)10000.)(caddr w2)) 1350.0);;10000. is dummy value to subtract box
(setq tmpsol (entlast))
(command "_subtract" wall "" tmpsol "" )
(command "_ucsicon" "_on" )
(command "_ucs" "_p")
(setvar "cmdecho" 1)
(princ)
)
页:
[1]