[求助] 如何将ARC替换成CIRCLE？

hkzwsy · 发表于 2003-12-4 11:09:00

((-1 . ) (0 . ARC) (330 . ) (5 . 2C) (100 .
AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbCircle) (10 222.933
134.887 0.0) (40 . 96.451) (210 0.0 0.0 1.0) (100 . AcDbArc) (50 . 0.221533)
(51 . 2.61162))
用 subst 替换成:
((-1 . ) (0 . CIRCLE) (330 . ) (5 . 2C) (100 .
AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbCircle) (10 222.933
134.887 0.0) (40 . 96.451) (210 0.0 0.0 1.0) )

meflying · 发表于 2003-12-4 11:14:00

取出圆心，半径及其他你需要的信息（如：层，颜色，线型等等），重新做一个圆就可以了

BDYCAD · 发表于 2003-12-4 11:50:00

是這樣做的.
(DEFUN c:test(/ a)
  (setq a (car (entsel"\nSelect object arc:")))
  (setq radius (assoc 40 (entget a)))
  (setq center (assoc 10 (entget a)))
  (entdel a)
  (entmake (append
         '((0 . "CIRCLE"))
         '((100 . "AcDbEntity"))
         '((100 . "AcDbCircle"))
         (list radius)
         (list center)))
  (princ))

hkzwsy · 发表于 2003-12-4 14:22:00

能不能替换方法，因为我想保留原来的绘图顺序。

meflying · 发表于 2003-12-4 14:31:00

应该不行，看看帮助文件中说的，
关于 entmod 函数所作的修改有一些限制：
不能改变一个图元的类型和句柄。如果一定要这样做，只能先调用 entdel 函数删除它，然后调用 command 或 entmake 函数创建新图元。
entmod 函数不能修改内部域，如 SEQEND 图元的 -2 组中的图元名，如果试图作这样的修改，将会被系统忽略。
不能使用 entmod 函数修改视口图元。
---------------------------------------------------------------------------
第一个就是不能修改类型，所以无法将此图元的类型从ARC修改为CIRCLE

龙龙仔 · 发表于 2003-12-4 17:08:00

BDYCAD你這個程序並不能保有原來ARC的其他性質(如圖層顏色所在UCS…….)

BDYCAD · 发表于 2003-12-4 17:28:00

是呀. 刚注意到. 所以改了改. 现在可以了, 多谢龙龙指点..
(DEFUN c:test(/ a radius center endc)
  (setvar "cmdecho" 0)
  (setq a (car (entsel"\nSelect object arc:")))
  (setq radius (assoc 40 (entget a)))
  (setq center (assoc 10 (entget a)))
  (entmake (append
   '((0 . "CIRCLE"))
         '((100 . "AcDbEntity"))
   '((100 . "AcDbCircle"))
   (list radius)
   (list center)))
  (setq endc (entlast))
  (command "_.matchprop" a endc "")
  (entdel a)(setvar "cmdecho" 1)
  (princ))

龙龙仔 · 发表于 2003-12-8 08:12:00

程序對於不平行於wcs的arc還是不行呀!再想想好嗎?
;;CIRCLE
((-1 . ) (0 . "CIRCLE") (330 . ) (5 .
"471B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbCircle") (10 171.147 14.6886 -131.974) (40 . 43.6533) (210 0.0 0.0 1.0))
;;ARC
((-1 . ) (0 . "ARC") (330 . ) (5 .
"471B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbCircle") (10 171.147 14.6886 -131.974) (40 . 43.6533) (210 0.0 0.0 1.0)
(100 . "AcDbArc") (50 . 0.619495) (51 . 3.20636))
比較兩種DXF碼的差別，
1. (0 . "CIRCLE") (0 . "ARC")
2. ARC多了
(100 . "AcDbArc") (50 . 0.619495) (51 . 3.20636))

BDYCAD · 发表于 2003-12-9 16:23:00

樓上我想不出了哦. 是不是更改你提到的那兩項, 再重生成過就好了嗎?

龙龙仔 · 发表于 2003-12-9 17:08:00

;;yes
(defun C:ARCTOCIR (/ QQ QQQ)
  (setq QQ (entget (setq QQQ (car (entsel)))))
  (setq QQ (member (assoc 210 QQ) (reverse QQ)))
  (setq QQ (reverse (subst '(0 . "CIRCLE") (assoc 0 QQ) QQ)))
  (entmake QQ)
  (entdel QQQ)
  (princ)
)

[求助] 如何将ARC替换成CIRCLE？

发表回复

精选推荐