24小时热门版块排行榜

返回列表

axiuluo007

金虫 (初入文坛)

应助: 0 (幼儿园)
金币: 4344
帖子: 9
在线: 14小时
虫号: 1683550
注册: 2012-03-11
性别: GG
专业: 煤炭地下开采

[交流] 一个倒圆角的代码不适应CAD04以外的版本

(defun c:yj ()
  (SETQ EE1 T)
(WHILE EE1
  (SETQ SSE (SSADD))
  (setq ee1 (entsel "\n选择第一线:"

)
  (IF EE1 (PROGN
  (setq e1 (car ee1) P1 (LAST EE1))
  (setq ent (cdr (assoc 0 (entget e1))))
  (if (AND (/= ent "LINE"

(/= ENT "LWPOLYLINE"

) (*ERROR* "NOT LINE & PLINE"

)
(IF (= ENT "LINE"

(SETQ T1 NIL) (SETQ T1 T))
(SSADD E1 SSE)
(setq ee2 (entsel "\n选择第二线:"

)
  (setq e2 (car ee2) P2 (last EE2))
  (setq ent (cdr (assoc 0 (entget e2))))
  (if (AND (/= ent "LINE"

(/= ENT "LWPOLYLINE"

) (*ERROR* "NOT LINE & PLINE"

)
(IF (= ENT "LINE"

(SETQ T2 NIL) (SETQ T2 T))
(IF (AND (SSMEMB E2 SSE) (/= ENT "LWPOLYLINE"

) (*ERROR* "ONE OBJECT"

)
(princ "\n圆角半径<"

(princ (setq rd (getvar "filletrad"

))
(setq rR (getreal ">:"

)
  (if rR (SETQ RD RR))
  (setvar "filletrad" rD)
  (IF (SSMEMB E2 SSE)
   (COMMAND "FILLET" "P" P1)
   (PROGN
   (SETQ AA (PW E1 P1) BB (PW E2 P2))
   (setq e1 (CAR AA) W1 (LAST AA))
   (setq e2 (CAR BB) W2 (LAST BB))
   (command "fillet" p1 p2)
   (if (> rd 0.001)
   (if (AND T1 T2)
      (command "pedit" "l" "y" "w" (* (+ w1 w2) 0.5) ""

))
(IF T1 (COMMAND "PEDIT" E1 "Y" "W" W1 ""

)
(IF T2 (COMMAND "PEDIT" E2 "Y" "W" W2 ""

)
))

))
))
可以倒圆角的命令而且多段线圆角后，弧段和直线不是整体的，方便移动
在AUTOCAD2004 中可用
其它版本中的倒圆角后直线和圆弧形成个整体的了，或者多段线变成直线和圆弧了，不知道咋回事，谁能看看，解决一下

[ Last edited by axiuluo007 on 2013-5-6 at 16:21 ]

回复此楼

» 猜你喜欢

26年秋季金属方向博士申请-目前研三在读-发表SCI 1区和2区学术论文共两篇已经有1人回复
审稿日期短时间内频繁更换，是被拒的节奏吗？已经有10人回复
金属材料论文润色/翻译怎么收费? 已经有277人回复
如何产生Frank分位错已经有2人回复
请大家帮忙看下，这样的审稿状态是否凶多吉少？已经有13人回复
英国伯明翰大学招收计算流体力学博士研究生已经有0人回复
英国伯明翰大学招收计算流体力学和气动声学博士研究生已经有0人回复
金属求博导已经有6人回复
提高合金高温性能已经有0人回复
化药设备差距真相，您了解有种钽中间体吗？已经有0人回复

己所不欲勿施于人

1楼 2013-05-06 16:16:02

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 axiuluo007 的主题更新

返回列表