明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1452|回复: 4

【求助】画pL线生成相应的图形

[复制链接]
发表于 2013-1-17 09:33 | 显示全部楼层 |阅读模式
大家好
小弟新手
麻烦大家帮忙一下

1、画pl线
2、pl线向外便宜a距离
3、两端封口
4、外面所有角进行倒圆角半径为a距离
5、然后填充
注:pl线形状为任意状 也可是拐直角、也可能是弓字形

谢谢大家,必有重谢

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2013-1-17 10:26 | 显示全部楼层
  1. (defun c:tt (/ e1 e2 l1 l2 d pt)
  2.   (setq e1 (car(entsel "\n选择多段线:")))
  3.   (setq d (getdist "\n偏移距离:"))
  4.   (setq pt (getpoint "\n偏移方向点:"))
  5.   (command "offset" d e1 pt "")
  6.   (setq e2 (entlast))
  7.   (command "FILLET" "r" d "FILLET" "p" e2)
  8.   (entmake
  9.     (list '(0 . "line")
  10.           (cons 10 (vlax-curve-getStartPoint e1))
  11.           (cons 11 (vlax-curve-getStartPoint e2))
  12.           )
  13.     )
  14.   (setq l1 (entlast))
  15.   (entmake
  16.     (list '(0 . "line")
  17.           (cons 10 (vlax-curve-getEndPoint e1))
  18.           (cons 11 (vlax-curve-getEndPoint e2))
  19.           )
  20.     )
  21.   (setq l2 (entlast))
  22.   (command "bhatch" "p" "ANSI31" 1 0 "s" e1 e2 l1 l2 "" "")
  23.   (princ)
  24.   )
发表于 2013-1-17 13:36 | 显示全部楼层
好代码,,,,,,,,,,,
发表于 2013-1-17 13:47 | 显示全部楼层
G版好快
发表于 2013-1-17 18:37 | 显示全部楼层
为何不直接参数绘图
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 00:27 , Processed in 0.187623 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表