社区 › Auto Lisp › 需要lisp

rk25134 发表于 2022-7-5 23:00:11

需要lisp

所附jpg需要lisp。

Tharwat 发表于 2022-7-6 00:25:05

这
 

(defun c:Test (/ 1p 2p 3p 4p 5p 6p 7p 8p 9p cc)
(if (setq 1p (getpoint "\n Specify base point :"))
   (progn
   (setq 2p (polar 1p (/ pi 2.) 1.)
         3p (polar 1p (/ pi 2.) 2.)
         4p (polar 1p pi 1.)
         5p (polar 3p pi 0.3)
         6p (polar 5p (/ pi 2.) 0.2)
         7p (polar 3p 0. 0.3)
         8p (polar 7p (/ pi 2.) 0.2)
         9p (polar 1p (/ pi 2.) 2.1)
   )
   (mapcar '(lambda (j k)
                (entmake
                  (list '(0 . "LINE") '(62 . 6) (cons 10 j) (cons 11 k))
                )
            )
             (list 1p 1p 4p 5p 7p 6p)
             (list 9p 4p 2p 6p 8p 7p)
   )
   (setq cc (getvar 'cecolor))
   (setvar 'cecolor "CYAN")
   (vl-cmdf "_.-hatch"
            "_p"
            "SOLID"
            "_non"
            (polar 1p 2.35619 0.1)
            ""
   )
   (setvar 'cecolor cc)
   )
)
(princ)
)

查看完整版本: 需要lisp