社区 › Auto Lisp › LISP错误SSGET LISP值

ttray33y 发表于 2022-7-5 22:12:57

LISP错误SSGET LISP值

下面的例程仅在选择块“插入”时工作，但一旦添加DXF代码，请参阅下面的红色粗体。
伙计们，我完全迷路了。我试图用ScaleX-1选择箭头
T、 I.A。
(defun C:YOUCOMMAND(/ aaaa bbbb cc cclist pt lay scfr scto)
(defun FilterBlkNameX(bbbb valu)
   (setq aaaa 0 newSet(ssadd))
   (while(< aaaa (sslength bbbb))
   (setq cc(ssname bbbb aaaa))
   (setq cclist(entget cc))
   (if(= "INSERT" (cdr(assoc 0 cclist)))
       (progn
         (if(= (strcase valu)(strcase (cdr(assoc 2 cclist))))
         (ssadd cc newSet)
         )
       )
   )
   (setq aaaa(+ aaaa 1))
   )
   newSet
)
(setvar "cmdecho" 0)
(setq bbbb(ssget "X" (list(cons 0 "INSERT")(cons 41 -1.0))))   
(if(and bbbb(> (sslength bbbb) 0))(setq bbbb(FilterBlkNameX bbbb "BLOCKNAME")))
(if (and bbbb (> (sslength bbbb) 0))
(progn
      (setq lay "0")
      (command "change" bbbb "" "Properties" "LAyer" lay "")
      (setq scfr(list 0.000000 0.000000 0.000000))
      (setq scto 0.500000)
      (command "SCALE" bbbb "" scfr scto)
    )
)
(setvar "cmdecho" 1)
(princ)
)
(princ "\n YOURCOMMAND to run the program.")
(princ)

 
为每个人更新了例行程序

hanhphuc 发表于 2022-7-5 22:45:46

看看这里的dxf组：40-48

ttray33y 发表于 2022-7-5 22:54:36

 
知道了。。非常感谢兄弟。所以我不需要包含双引号。

hanhphuc 发表于 2022-7-5 23:30:58

不客气。坚持练习&祝你好运

查看完整版本: LISP错误SSGET LISP值