选择ob的LISP语言

Locked and Load · 发表于 2022-7-6 07:47:56

大家好，

这是我第一次在这个论坛上，所以请原谅我，如果这已经张贴了。我正在尝试编写一个lisp例程，im noob as on lisps，我正在尝试执行以下操作：

;;=============================================
;;
;; 描述：围绕选定的多重引线实体放置光晕效果。
;;
;; 注意：这适用于AutoCAD形状文件和非True Type字体。
;;
;;=============================================
（定义c:halo（）
（setq FLTR’（-4）。（0。“多重引线”）
（-4.“或>”）
)
)
（Princ“\n选择多重引线到光环（不能是true type字体）……”）
（princ“\n选择要处理的实体后按ENTER…”
（setq SS（ssget FLTR））
（命令“_.copy”ss”““0,0”“0,0”）
（命令“_.layer”“m”“halotext255”“c”“255”“”“lw”“2”“”“”）
（命令“_.chprop”ss“_la”“halotext255”“p”“c”“bylayer”）
;（命令“_.draworder”ss”“a”“p”）
)

现在，我想做的是，我使用quickselect，我想选择层“halotext255”上的所有多重引线，分解它们，然后选择分解的leaeder（层“halotext255”上的1 x实心线、1 x多段线和1 x直线）并删除它们，只在多重引线的文本下面留下多行文字。

非常感谢您的任何建议/帮助。

asos2000 · 发表于 2022-7-6 08:00:58

-在创建对象方面，First Entmake优于command
而不是

copy

(command "_.layer" "m" "halotext255" "c" "255" "" "lw" "2" "" "")

使用

copy

  (entmake (list (cons 0 "LAYER")
                (cons 100 "AcDbSymbolTableRecord")
                (cons 100 "AcDbLayerTableRecord")
                (cons 2  Nme)
                (cons 70 0)
                (cons 62 Col)
                (cons 6 Ltyp)
                (cons 290 Plt)
                (cons 370 LWgt)))

DXF代码使用AutoCAD 2011 DXF参考

-不要使用不需要的变量
而不是

copy

(setq FLTR '((-4 . "<OR") (0 . "MULTILEADER") (-4 . "OR>")))
(setq SS (ssget FLTR))

使用

copy

(setq SS (ssget '((-4 . "<OR") (0 . "MULTILEADER") (-4 . "OR>"))))

PS：参考代码发布指南

MSasu · 发表于 2022-7-6 08:01:33

使用EXPLODE命令打断多重引线实体，并记住此操作的结果存储为以前的选择集；接下来，解析它以仅保留所需的实体。
只要您只查找一种类型，就不需要逻辑过滤器：

copy

(setq FLTR '([s][color=red](-4 . "<OR")[/color][/s]
            (0 . "MULTILEADER")
            [s][color=red](-4 . "OR>")[/color][/s]
           )
)

MSasu · 发表于 2022-7-6 08:13:29

这个例子可以帮助您：

copy

(if (setq ssetMLeaders (ssget "_:S" '((0 . "MULTILEADER"))))
(progn
 (command "_EXPLODE" (ssname ssetMLeaders 0))
 (setq ssetItems (ssget "_P"))
 (repeat (setq index (sslength ssetItems))
  (setq assocItem (entget (ssname ssetItems (setq index (1- index)))))
  (if (/= (cdr (assoc 0 assocItem))
          "MTEXT")
   (entdel (cdr (assoc -1 assocItem)))
  )
 )
)
)

Locked and Load · 发表于 2022-7-6 08:15:42

MSasu，

该代码可以工作，但有没有一种方法可以设置代码，这样我就不必手动选择它，我可以为该代码“选择上一个”吗，这就是我如何将其输入到我的代码中的方法：

copy

 
;;  Description: Place a HALO effect around selected multileader entities.
;;
;;  Note: This works for AutoCAD shape files and not True Type Fonts.
;;
;;=============================================
(defun c:halo ()
(setq FLTR '( (-4 . "<OR")
              (0 . "MULTILEADER")
             (-4 . "OR>")
           )
)
(Princ "\nSelect Multileader to HALO (CAN NOT be a true type font)...")
(princ "\nPress ENTER after selecting entities to process them...")
(setq SS (ssget FLTR))
(command "_.copy" ss "" "0,0" "0,0")
(command "_.layer" "m" "halotext255" "c" "255" "" "lw" "2" "" "")
(command "_.chprop" ss "" "_la" "halotext255" "p" "c" "bylayer" "")
(if (setq ssetMLeaders (ssget "_:S" '((0 . "MULTILEADER"))))
(progn
 (command "_EXPLODE" (ssname ssetMLeaders 0))
 (setq ssetItems (ssget "_P"))
 (repeat (setq index (sslength ssetItems))
  (setq assocItem (entget (ssname ssetItems (setq index (1- index)))))
  (if (/= (cdr (assoc 0 assocItem))
          "MTEXT")
   (entdel (cdr (assoc -1 assocItem)))
  )
 )
)
)
;(command "_.draworder" ss "" "a" "p")
)

我认为我的代码和你的代码是两种不同的语言。当谈到lisps时，我仍然是noob，我的这段代码是类似的东西的修改版本。。。你能告诉我代码应该是什么样子吗？

有没有一个地方可以解释什么是“setq”以及所有括号的理由？？我真的很想学习如何写Lisp程序。。。

MSasu · 发表于 2022-7-6 08:22:42

如果我不理解您的井，您希望解析第一个选择集以保留标签：

copy

(princ "\nPress ENTER after selecting entities to process them...")
(if (setq SS (ssget  '((0 . "MULTILEADER"))))
(progn
 (command "_.copy" ss "" "0,0" "0,0")
 (command "_.layer" "m" "halotext255" "c" "255" "" "lw" "2" "" "")
 (command "_.chprop" ss "" "_la" "halotext255" "p" "c" "bylayer" "")
 (repeat (setq index1st (sslength ss))
  (command "_EXPLODE" (setq tempItem (ssname ss (setq index1st (1- index1st)))))
  (setq ssetItems (ssget "_P"))
  (repeat (setq index2nd (sslength ssetItems))
   (setq assocItem (entget (ssname ssetItems (setq index2nd (1- index2nd)))))
   (if (/= (cdr (assoc 0 assocItem))
           "MTEXT")
    (entdel (cdr (assoc -1 assocItem)))
   )
  )
 )
)
)

请再次检查我对选择过滤器的评论。

完全没有，只是普通的AutoLISP。

Locked and Load · 发表于 2022-7-6 08:29:41

先生，你是一位大师！才华横溢，完美无瑕。

但还有一个问题，对不起，我如何将命令“HALO”合并到其中？

MSasu · 发表于 2022-7-6 08:36:09

您只需要将例程中的代码替换为我修改的代码；还指示将变量本地化，并添加最终PRINC语句以安静退出（提示器上没有nil）。

copy

(defun c:halo( / associtem index1st index2nd ss ssetitems tempitem )
(princ "\nPress ENTER after selecting entities to process them...")
(if (setq SS (ssget  '((0 . "MULTILEADER"))))
 (progn
  (command "_.copy" ss "" "0,0" "0,0")
  (command "_.layer" "_m" "halotext255" "_c" "255" "" "_lw" "2" "" "")
  (command "_.chprop" ss "" "_la" "halotext255" "_p" "_c" "bylayer" "")
  (repeat (setq index1st (sslength ss))
   (command "_EXPLODE" (setq tempItem (ssname ss (setq index1st (1- index1st)))))
   (setq ssetItems (ssget "_P"))
   (repeat (setq index2nd (sslength ssetItems))
    (setq assocItem (entget (ssname ssetItems (setq index2nd (1- index2nd)))))
    (if (/= (cdr (assoc 0 assocItem))
            "MTEXT")
     (entdel (cdr (assoc -1 assocItem)))
    )
   )
  )
 )
)
(princ)
)

Locked and Load · 发表于 2022-7-6 08:46:50

这很有效！非常感谢你。

MSasu · 发表于 2022-7-6 08:53:53

不客气！

[编程交流] 选择ob的LISP语言

发表回复

精选推荐