社区 › Auto Lisp › 输入或不输入

Lee Mac 发表于 2022-7-6 09:25:40

我同意李使用entmake，好的编程应该是有一个defun，它是一个“entmake”（myline p1 p2）也有其他公共实体圆弧等（mycircle p1 ang1 ang2 rad）
 
将这些entmake defuns放入启动/自动加载lsp
 
如果你看更高层次的编程示例。net C##它们始终具有entmake类型的函数。VL？
 
如
 

(defun c:TesT (/ ip p1 p2 p3)
;;; Tharwat 04. Jan. 2012 ;;;
(if (setq ip (getpoint "\nEnter Center Point: "))
(progn
   (entmake
   (list '(0 . "CIRCLE") (cons 10 (trans ip 0 1)) '(40 . 3.))
   )
   (entmake (list '(0 . "LINE")
                  (cons 10 (setq p1 (polar ip 0. 5.0)))
                  (cons 11 (polar p1 pi 10.))
            )
   )
   (entmake (list '(0 . "LINE")
                  (cons 10 (setq p2 (polar ip (/ pi 2.) 5.0)))
                  (cons 11 (polar p2 (+ pi (/ pi 2.)) 10.))
            )
   )
   (setq p3 (polar ip (/ pi 4.) 1.))
   (repeat 2
   (command "_.-hatch" "_p" "Solid" p3 "")
   (setq p3 (polar ip (+ pi (/ pi 4.)) 1.))
   )
)
(princ)
)
(princ)
)

BIGAL 发表于 2022-7-6 09:29:07

查看完整版本: 输入或不输入