注释比例为何创建不成功

zdqwy19 · 发表于 2024-8-15 10:00:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;(addscale (car(entsel)) "1:2")
(defun AddScale (object scale / DefineNewDictHandle dicLv2 m1:1)
  (defun DefineNewDictHandle(lst / leeter numbre handles retVal)
(foreach letter '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K")
   (foreach number '(0 1 2 3 4 5 6 7 8 9)
(setq handles (cons (strcat "*" letter (itoa number)) handles))))
(setq handles (cdr(reverse handles)))
(while (member (setq retVal (car handles)) lst) (setq handles (cdr handles)))
retVal)
  (setq dicLv2 (entget(cdr (assoc 350 (entget(cdr (assoc 360  (entget(cdr (assoc 360 (entget object)))))))))))
  (setq m1:1 (cdr(assoc 350 dicLv2)))
  (setq dicLv2 (append dicLv2 (list (cons 3 (DefineNewDictHandle (apply 'append(mapcar '(lambda(x)(if(=(car x)3)(list(cdr x)))) dicLv2))))(cons 350 m1:1))))
  (entmod dicLv2)
  )
注释比例为何创建不成功

账号		自动登录	找回密码
密码			立即注册

[求助] 注释比例为何创建不成功

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。