明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3990|回复: 15

[提问] 求一块平行于直线、多段线、曲线的lsp

[复制链接]
发表于 2013-1-8 08:33:09 | 显示全部楼层 |阅读模式
本帖最后由 spp_wall 于 2013-10-9 21:46 编辑

    如题   做标志标线的时候  需要布标线  平行于车道线 最好能做到块标线的中心在2个车道线的中间

    基本都是手动旋转 又费时间又不美观

    求高手写个程序 解决下这个问题 钱不多  谢谢!

本帖子中包含更多资源

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

x
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2022-5-20 17:25:05 | 显示全部楼层
支持 支持 支持 支持
 楼主| 发表于 2013-1-8 12:02:12 | 显示全部楼层
没人么????????????
 楼主| 发表于 2013-1-8 17:50:14 | 显示全部楼层
本帖最后由 spp_wall 于 2013-1-8 17:50 编辑

是无法实现么?
发表于 2013-1-8 18:14:39 | 显示全部楼层
等你的同行给你解决吧.
发表于 2013-1-8 19:03:02 | 显示全部楼层
 楼主| 发表于 2013-1-9 08:30:31 | 显示全部楼层
yjr111 发表于 2013-1-8 19:03
http://bbs.mjtd.com/thread-89922-1-1.html

这个只能对文字有效果 对块没效果
 楼主| 发表于 2013-10-7 16:25:14 | 显示全部楼层
阿斯顿  !!!!!!
发表于 2013-10-7 18:30:35 | 显示全部楼层
本帖最后由 xyp1964 于 2013-10-8 22:52 编辑

  1. ;; 块线平行
  2. (defun c:test1374 (/ i ss s1 pt)
  3.   (xyp-CMDLA0)
  4.   (while (and (setq s0 (car (entsel "\n选择曲线: ")))
  5.               (setq ss (ssget '((0 . "insert"))))
  6.          )
  7.     (setq i -1)
  8.     (while (setq s1 (ssname ss (setq i (1+ i))))
  9.       (setq p1        (xyp-DXF 10 s2)
  10.             p2        (vlax-curve-getclosestpointto s0 p1)
  11.             rad        (xyp-Get-AngleAtPoint s0 p2)
  12.             rad        (- rad (* pi 0.5))
  13.       )
  14.       (xyp-SubUpd s1 50 rad)
  15.     )
  16.   )
  17.   (xyp-CMDLA1)
  18. )

本帖子中包含更多资源

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

x
发表于 2013-10-8 07:36:10 | 显示全部楼层
谢谢8楼主代码分享!
 楼主| 发表于 2013-10-8 08:52:50 | 显示全部楼层
谢谢校长  这是是要装e派才能用么
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-22 18:48 , Processed in 0.205200 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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