如何在Lisp編程中生成群組時(如用-Group指令)，使其具有Selectable特性

龙龙仔 · 发表于 2003-3-19 08:03:00

(defun C:TOGGLE_SELECTABLE
   (/ HOLDBLIP HOLDPICKSTYLE SELECTABLE NAME A N A330 B)
  (setq HOLDECHO (getvar "cmdecho"))
  (setq HOLDBLIP (getvar "blipmode"))
  (setq HOLDPICKSTYLE (getvar &quotICKSTYLE"))
  (setvar &quotICKSTYLE" 0)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq A (entget (car (entsel "\n选择群组对象: "))))
  (while (= (assoc 102 A) NIL)
(prompt "\n你所选非群组物件: ")
(setq A (entget (car (entsel "\n请选择群组对象: "))))
  )
  (if (/= (assoc 102 A) NIL)
(progn
   (setq A330 (cdr (assoc 330 A)))
   (setq B (entget (cdr (nth 6 (entget (cdr (nth 4 A)))))))
   (setq N 1)
   (while (not (equal A330 (cdr (nth N B))))
      (setq N (+ N 1))
   )
   (setq SELECTABLE (cdr (assoc 71 (entget (cdr (nth N B))))))
   (setq NAME (cdr (nth (- N 1) B)))
   (if (= SELECTABLE 0)
      (progn
      (command "GROUP" "S" NAME "")
      (prompt (strcat "\n群组名称: " NAME " 设为可选择\n"))
      )
      (progn
      (command "GROUP" "S" NAME "")
      (prompt (strcat "\n群组名称: " NAME " 设为不可选择\n"))
      )
   )
)
  )
  (setvar "blipmode" HOLDBLIP)
  (setvar &quotICKSTYLE" HOLDPICKSTYLE)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)

如何在Lisp編程中生成群組時(如用-Group指令)，使其具有Selectable特性

发表回复

精选推荐