[求助]：请教：如何在CAD中将一个点显示为有一定半径的实心园

yousuika · 发表于 2002-4-29 23:01:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教：如何在CAD中将一个点显示为有一定半径的实心园（其实是点）:4

XDSoft · 发表于 2002-4-29 23:18:34

多利用AUTOCAD的联机帮助。见下面图，在索引里面输入point就找到关于点的帮助了。

登录/注册后可看大图

e2002 · 发表于 2002-4-29 23:18:45

可能不行，只能改点类型

XDSoft · 发表于 2002-4-29 23:22:08

最初由 yousuika 发布
[B]请教：如何在CAD中将一个点显示为有一定半径的实心园（其实是点）:4 [/B]

如果你一定要“实心”的，可以自己做个单位1x1的块，替换那些点，写个简单的LISP就可以做到。

yousuika · 发表于 2002-4-29 23:50:27

谢谢大家！我知道设置点的类型，但是不能得到目点，估计需要编个小程序了

szkevin · 发表于 2002-4-30 00:09:12

最初由 e2002 发布
[B]可能不行，只能改点类型 [/B]

可以，你可以按屏幕百分比设置，也可以按单位设置。

XDSoft · 发表于 2002-4-30 00:22:59

最初由 yousuika 发布
[B]请教：如何在CAD中将一个点显示为有一定半径的实心园（其实是点）:4 [/B]

给你写个程序，附件是样本块，拷贝DWG文件到搜索目录就可以了。

自己可以修改样本块，想替换成什么样的图形都可以。注意修改后的要是单位块，才好配合程序里面的输入比例。

[FONT=courier new]
;|
命令：point_exchange
功能：替换选择的点到自己定义的块，块名为point.dwg
(自己可以修改point.dwg文件,提供的样本块是个
donut实体，内径0.03、外半径0.5)
说明：程序配合XDRX_API使用，对程序有建议请到：
晓东CAD空间－论坛 [url]http://www.xdcad.net/forum[/url]
留言
|;
(defun c:point_exchange (/ ss scl e)
(prompt "\n请选取要替换的点<全选>:")
(if (and
(or
(setq ss (ssget '((0 . "point"))))
(setq ss (ssget "x" '((0 . "point"))))
)
(setq scl (getreal "\n请输入替换块的比例<退出>:"))
)
(progn
(xdrx_begin '("cmdecho" 0))
(xdrx_ucson)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq pt (xdrx_getentdxf 10))
(entdel e)
(command ".insert" "point" pt scl "" "")
)
(xdrx_ucsoff)
(xdrx_end)
)
)
(princ)
)
[/FONT]

[FONT=courier new] 
;| 
   命令：point_exchange 
   功能：替换选择的点到自己定义的块，块名为point.dwg 
        (自己可以修改point.dwg文件,提供的样本块是个 
         donut实体，内径0.03、外半径0.5) 
    
   说明：程序配合XDRX_API使用，对程序有建议请到： 
        晓东CAD空间－论坛 [url]http://www.xdcad.net/forum[/url] 
        留言 
|; 
(defun c:point_exchange (/ ss scl e) 
  (prompt "\n请选取要替换的点<全选>:") 
  (if (and 
        (or 
          (setq ss (ssget '((0 . "point")))) 
          (setq ss (ssget "x" '((0 . "point")))) 
        ) 
        (setq scl (getreal "\n请输入替换块的比例<退出>:")) 
      ) 
    (progn 
      (xdrx_begin '("cmdecho" 0)) 
      (xdrx_ucson) 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (setq pt (xdrx_getentdxf 10)) 
        (entdel e) 
        (command ".insert" "point" pt scl "" "") 
      ) 
      (xdrx_ucsoff) 
      (xdrx_end) 
    ) 
  ) 
  (princ) 
) 
[/FONT]

yousuika · 发表于 2002-4-30 00:32:00

我设置单位和百分比，也没有实现

yousuika · 发表于 2002-4-30 01:03:55

有点像天正中的轴号标注方法

cad517 · 发表于 2002-4-30 07:43:02

可以画圆环啊

XDSoft · 发表于 2002-4-30 08:02:57

最初由 cad517 发布
[B]可以画圆环啊 [/B]

程序中用块的好处是以后随时可以修改样本块文件，比如中间加上十字线或者改任意的形状。

其实提供的样本块，就是一个外直径为1的“面包圈”

yousuika · 发表于 2002-5-1 03:44:21

请教：用arx方法实现以上功能时，在选中点时，先让它变成红色，然后再替换成图块，用什么方法好？反应器还是子实体？先谢谢！

XDSoft · 发表于 2002-5-1 05:03:09

最初由 yousuika 发布
[B]请教：用arx方法实现以上功能时，在选中点时，先让它变成红色，然后再替换成图块，用什么方法好？反应器还是子实体？先谢谢！ [/B]

你可以用ARX“画”向量到屏幕。

yousuika · 发表于 2002-6-13 17:12:45

最初由 XDSoft 发布
[B]

你可以用ARX“画”向量到屏幕... [/B]

我理解为在cad中用点的坐标再画一个红色点，然后删除，对吗？请再跟我指导指导！

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

[求助]：请教：如何在CAD中将一个点显示为有一定半径的实心园

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：请教：如何在CAD中将一个点显示为有一定半径的实心园

给你写个程序，附件是样本块，拷贝DWG文件到搜索目录就可以了。