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 ]

回复此楼

» 猜你喜欢

寻找论文指导老师已经有6人回复
请大家帮忙看下，这样的审稿状态是否凶多吉少？已经有12人回复
金属材料论文润色/翻译怎么收费? 已经有55人回复
【26年入学】红外半导体/电子信息/嵌入式视觉/诚招博士生光电教育部重点实验室已经有0人回复
南方科技大学机械与能源工程系-邓辉研究员招收2026级博士生已经有0人回复
南方科技大学机械与能源工程系-邓辉研究员招收2026级博士生已经有0人回复
CSC难上岸，25年东京大学，早稻田，京都大学多Lab大量招募日本全奖博士生！已经有2人回复
南方科技大学机械与能源工程系-邓辉研究员招收2026级博士生已经有0人回复
【26年入学】红外半导体/电子信息/嵌入式视觉/诚招博士生光电教育部重点实验室已经有0人回复
2025-2026国产空气检漏仪/气密测漏仪/气密性测试仪推荐生产厂家已经有0人回复

己所不欲勿施于人

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

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

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

返回列表