明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: 铆钉

请各位斑竹给瞧瞧病

  [复制链接]
发表于 2004-5-29 14:46:00 | 显示全部楼层
搞个图例吧
 楼主| 发表于 2004-5-29 15:55:00 | 显示全部楼层
全部是曲线距离


我需要在曲线上点取一个点





然后取得这个点到起点的距离后


再给取得的距离加上一段距离后


求出这个点再在这个点画一条垂线
 楼主| 发表于 2004-5-29 15:59:00 | 显示全部楼层
全部是曲线


机上是我打错了应为加上
 楼主| 发表于 2004-5-29 16:00:00 | 显示全部楼层



就是他

本帖子中包含更多资源

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

x
发表于 2004-5-29 16:26:00 | 显示全部楼层
这里不用把ENAME转化为VLA-OBJ。。。这个问题我已经说过很多遍,好象没有人有什么反应建议你不要就着某个程序或任务来学习LISP,你需要的先把基础部分掌握了
  1. (defun ok_VVV (/ ENAME zxzhs ptcl ptcal cm os PX1 JANG) ;HOLDOSMODE)
  2.    (vl-load-com)
  3.    (setq ENAME   (car (entsel "\n拾取天桥路线: ")))
  4.    (setq zxzhs (getpoint "\n点取天桥中心桩号:"))
  5.    (setq ptcl (vlax-curve-getclosestpointto ENAME zxzhs))
  6.    (setq ptCal (vlax-curve-getpointatdist ENAME (+ (vlax-curve-getdistatpoint ENAME ptcl) 20)))   
  7.    (setq cm (getvar "cmdecho"))
  8.    (setq os (getvar "osmode"))
  9.    (setvar "cmdecho" 0)
  10.    (setvar "osmode" 0)   
  11.    (setq PX1 (vlax-curve-getfirstderiv ENAME (vlax-curve-getparamatpoint ENAME ptCal)))
  12.    (setq JANG (angle '(0 0 0) PX1))
  13.    (command "_.line" (polar ptcal (+ (* pi 0.5) JANG) 10) (polar ptcal (+ (* 1.5 pi) JANG) 10) "");两个10是你需要画线的长度
  14.    (setvar "osmode" os)
  15.    (setvar "cmdecho" cm)
  16.    (princ)
  17. )
 楼主| 发表于 2004-5-29 16:34:00 | 显示全部楼层
谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-6 02:58 , Processed in 0.184270 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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