spring8801 发表于 2012-4-2 11:36:49

求编程

求CAD中能点选封闭图形（多段线、圆弧等），可删除封闭区域内图形程序或代码！

ZZXXQQ 发表于 2012-4-2 21:24:44

(defun c:tt ()
(setvar "CMDECHO" 0)
(setq e1 (entlast))
(if (setq pt (getpoint "\n点选封闭区域 :")) (progn
(command "-BOUNDARY" pt "")
(if (not (eq (entlast) e1)) (progn
   (setq e2 (entlast)
         ent (entget e2))
   (setq plst (list))
   (foreach x ent (if (= (car x) 10) (setq plst (cons (cdr x) plst)))
   (if (setq ss (ssget "wp" plst)) (command ".ERASE" ss ""))
))
))
(setvar "CMDECHO" 1)
(princ)
)

dalin1985 发表于 2012-4-2 21:48:11

斑竹真给力,有问就有答.

spring8801 发表于 2012-4-7 21:29:44

感谢您的热心回复，加载时出现错误！输入的列表有缺陷; 错误: *error* 函数中出错no function definition: UCSOFF,麻烦修改一下，谢谢！

spring8801 发表于 2012-4-7 21:45:31

ZZXXQQ 发表于 2012-4-2 21:24 static/image/common/back.gif
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq e1 (entlast))


感谢您的热心回复，加载时出现错误！输入的列表有缺陷; 错误: *error* 函数中出错no function definition: UCSOFF,麻烦修改一下，谢谢！

ZZXXQQ 发表于 2012-4-9 21:00:58

程序中未用到UCSOFF。是加载了其它的外挂吧

spring8801 发表于 2012-4-10 09:29:21

spring8801 发表于 2012-4-7 21:45 static/image/common/back.gif
感谢您的热心回复，加载时出现错误！输入的列表有缺陷; 错误: *error* 函数中出错no function definition ...

在04CAD中加载，出现上面情况，在06和08CAD中出现，"; 错误: 输入的列表有缺陷",这是什么原因呢？

haoryh 发表于 2013-1-3 10:39:34

我这里试了一下，也是“输入的列表有缺陷”

Andyhon 发表于 2013-1-3 10:56:23

本帖最后由 Andyhon 于 2013-1-3 10:57 编辑

(defun c:tt ()
(setvar "CMDECHO" 0)
(setq e1 (entlast))
(if (setq pt (getpoint "\n点选封闭区域 :"))
    (progn
      (command "-BOUNDARY" pt "")
      (if (not (eq (entlast) e1))
      (progn
          (setq e2(entlast)
                ent (entget e2)
          )
          (setq plst (list))
          (foreach x ent
            (if (= (car x) 10)
            (setq plst (cons (cdr x) plst))
            )
            (if (setq ss (ssget "wp" plst))
            (command ".ERASE" ss "")
            )
          )
      )
      )
    )
)
(setvar "CMDECHO" 1)
(princ)
)

haoryh 发表于 2013-1-12 19:16:49

长老：点选封闭区域，点在对象上，选不中，什么情况？
页: [1] 2
查看完整版本: 求编程