插入块

dongya1235 · 发表于 2013-6-9 09:23:56

楼主这种做法很不好

风雨依然 · 发表于 2013-6-9 09:40:50

如果以后有同样的问题搜不到了免得又有同样问题的贴子又让那些高手发同样多的时间做同样的回答
你想想这样好吗

simpleye · 发表于 2013-6-9 09:57:21

楼主太不厚道了，这种事也能做出来，估计人品也不咱样，建议拉出去枪毙十来回。

wowan1314 · 发表于 2013-6-9 09:58:29

本帖最后由 wowan1314 于 2013-6-9 09:59 编辑

楼主，发帖后如无必要，不要去改帖子。这样方便后来人从你的问题中找到各自的答案。

我还帮你精简了下代码。发上来供你参考

(defun c:T1 (/ blk-name)
(while (NOT (setq blk-name
(ssget ":s:e" '((0 . "insert")))
)
)
)
(setq blk-name (cdr (assoc 2 (entget (ssname blk-name 0)))))
(mapcar
'(lambda (x)
(command "insert" blk-name "none" x "1" "1" "0")
)
(mapcar '(lambda (x) (trans (cdr (assoc 10 (entget x))) 0 1))
(cdr (reverse
(mapcar 'cadr (ssnamex (ssget '((0 . "CIRCLE")))))
)
)
)
)
(princ)
)

dongya1235 · 发表于 2013-6-21 10:16:21

wowan1314 发表于 2013-6-9 09:58
楼主，发帖后如无必要，不要去改帖子。这样方便后来人从你的问题中找到各自的答案。

我还帮你精简了下代 ...

黄瓜哥真是好人。支持黄瓜哥！

asd19400 · 发表于 2018-9-30 03:10:33

能否把圆心改为形心，矩形的形心

preone · 发表于 2019-12-4 22:20:21

wowan1314 发表于 2013-6-9 09:58
楼主，发帖后如无必要，不要去改帖子。这样方便后来人从你的问题中找到各自的答案。

我还帮你精简了下 ...

(cdr (reverse
   (mapcar 'cadr (ssnamex (ssget '((0 . "CIRCLE")))))
   )
)
上面这句可不可以这样：
(vl-remove-if
'(lambda (x) (listp x))
(mapcar 'cadr (ssnamex (ssget '((0 . "CIRCLE")))))
  )
我也不知道，才学

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

[讨论] 插入块