(SETQ GOP (SSADD));;设定一个空的图元集合SS (SETQ GOP (SSGET "x" '((6 . "*HIDDEN*")))) (IF (/= GOP NIL) (PROGN (SETQ N (SSLENGTH GOP )) (SETQ M 0) (REPEAT N (SETQ ENT (ENTGET (SSNAME GOP M))) (SETQ ENT (SUBST (CONS '48 10) (ASSOC 48 ENT) ENT)) (ENTMOD ENT) (SETQ M (+ M 1)) ))) 写了一段lisp,想统一图中虚线比例为10,但线形随层的对象没有6这一代码,怎么办 |