 - (setq ss (ssget "_X" '((0 . "LINE,ARC,CIRCLE,INSERT"))))
- ;选取全图在所有model空间
- (setq ss (ssget "_X" '((0 . "*")(410 . "Model"))))
(list (cons 40 1.0)) 可以简化 '((40 . 1.0))
虽然相同,但cons一定要list表进行 (list (cons 40 1.0)),否则撇号表无效 '((cons 40 1.0))
其实依个人习惯吧!
平时如有已知值,无需cons条件。
直接 '((40 . 3)(1 . "ABC"))
除非需要变量值才会用cons
(list (cons 40 (getvar 'textsize))(cons 1 str) )
|