flfcegu168 发表于 2008-2-22 20:12:00

一次性自动画出每个圆的圆心点

一次性自动画出每个圆的圆心点 （即在圆心处产生一个点而非十字线）    我做线割编程的这个功能很有用请求帮助

czb203 发表于 2020-12-2 22:23:22

非常感谢   但我还有一个小要求想把生成的点放一在一个指定的层如POT层再次感谢 版主了   

vladimir 发表于 2020-12-2 22:01:32

不错的程序，谢谢楼主分享

htlaser 发表于 2018-10-26 10:00:08

第6次回了是不是这样啊

ZZXXQQ 发表于 2008-2-23 10:10:00

本帖最后由 作者 于 2008-2-23 18:03:52 编辑


;圆心画点 明经 ZZXXQQ 2008.2.23
(defun c:tt ()
(setvar "CMDECHO" 0)
(princ "\nSelect Circle(s) 选择圆 :")
(if (setq ss (ssget '((0 . "CIRCLE")))) (progn
(setq i -1)
(if (not (tblsearch "LAYER" "POT"))
   (command "layer" "n" "POT" "")
)
(repeat (sslength ss)
   (setq ent (entget(ssname ss (setq i (1+ i))))
         pc (cdr (assoc 10 ent)))
   (entmake (list
    '(0 . "POINT")
    '(100 . "AcDbEntity")
'(67 . 0)
'(8 . "POT")
'(100 . "AcDbPoint")
(cons 10 pc)
'(210 0.0 0.0 1.0)
'(50 . 0.0)
   ))
)
))
(setvar "CMDECHO" 1)
(princ)
)

flfcegu168 发表于 2008-2-23 17:43:00

<p>非常感谢&nbsp;&nbsp; 但我还有一个小要求&nbsp; 想把生成的点放一在一个指定的层如POT层&nbsp; 再次感谢&nbsp;版主了&nbsp; &nbsp;&nbsp;&nbsp; </p>

flfcegu168 发表于 2008-2-23 18:05:00

<p>终于找到了一个很棒的CAD专场&nbsp;&nbsp;&nbsp; 我将会一直支持这个论坛&nbsp;&nbsp; </p>

ZZXXQQ 发表于 2008-2-23 18:05:00

2楼已改。

flfcegu168 发表于 2008-3-1 21:51:00

收到非常感谢还想请你帮个忙   我有一个贴子是将SPLINE（多义线）在可以保证设定精度（如+-0。005）下转变成直和圆弧

liuhoujun 发表于 2008-3-31 13:12:00

<p>好东西!可惜看不到!</p><p>我想找一个一次性删除所有图元中心线的程序请问那有啊!</p>

claotlaot 发表于 2008-4-16 11:08:00

liuhoujun发表于2008-3-31 13:12:00static/image/common/back.gif好东西!可惜看不到!我想找一个一次性删除所有图元中心线的程序请问那有啊!

<p></p>同感

FANGZHENG158 发表于 2008-7-8 13:06:00

好东西!

fantasy168 发表于 2008-12-13 16:05:00

实用 看看~~~
页: [1] 2 3 4 5
查看完整版本: 一次性自动画出每个圆的圆心点