设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：[1015]为何选取命令无法抓取"掣点"呢? ...
返回列表 发新帖
查看: 1694|回复: 10

[求助] [求助]：[1015]为何选取命令无法抓取"掣点"呢?

[复制链接]
xyz518mm
发表于 2006-10-15 18:01:42 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
[求助]：[1015]为何选取命令无法抓取"掣点"呢?

一般可以经由滑鼠选取物件后在点选"掣点"拉伸来控制.

指令:

** 拉伸 **
指定拉伸点或 [基准点(B)/复制(C)/复原(U)/结束(X)]:

但如果是使用程序来操作
为何无法完成呢?

我想使用下面程序来操作

  3. (setq EN (car (entsel "\n 选取封闭线物件:")))
  4. (setq PS (getpoint "\n 点选掣点:"))
  5. (COMMAND "_.STRETCH" EN "" PS  )


烦请各位高手可以解答一下
谢谢~
选取, 拉伸, 无法

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

fsxm

已领礼包: 6个

财富等级: 恭喜发财
发表于 2006-10-15 18:34:03 | 显示全部楼层
晕啊~这个还真不知道乍为事啊?
把各路老大都请出来看看~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

haibinpro
发表于 2006-10-15 18:58:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
是指夹点么，
不同的实体有不同数量/位置的夹点，其位置也不一定相同。
比如：直线段有3个夹点，对应的位置分别是两端点和中点。
entsel和getpoint都只是选择实体性质的，不会激发产生夹点的操作阿。
如果单行文字，你又怎么点选到夹点呢？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyz518mm
 楼主| 发表于 2006-10-15 19:20:12 | 显示全部楼层
我想先用拉伸命令来操作
如图片中红圈的"掣点"
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Underway

已领礼包: 7233个

财富等级: 富甲天下
发表于 2006-10-15 20:41:20 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
您需要借道 sssetfirst
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyz518mm
 楼主| 发表于 2006-10-15 21:16:37 | 显示全部楼层
请问 sssetfirst 命令怎样运用呢?
如果我不使用,而是使用下面方法完成
是否可行呢?
另外程序中的面积及选点的位置
还无法连续显示
请问各位高手可以帮忙处理一下吗
谢谢


[PHP]
(SETQ OBJ (CAR (ENTSEL "\n 选取封闭物件:")))
(setq VLOBJ (vlax-ename->vla-object OBJ))
(SETQ p1 (GETPOINT "\n 设定基点:"))
(SETQ P2 (GETCORNER (SETQ P1 (CADR EN )) "\n 选取对角点:"))
(setq loop_id T)
(setq p3 (getpoint "\n 点选拉伸基点:"))
(setq pp (grread t 4 0))
(COMMAND "._stretch" "_c" p1 p2 "" p3
(WHILE loop_id
(SETQ p4 (CADR pp))
(SETQ pp (GRREAD T 4 0))
(REDRAW)
(SETQ vla_en_AREA (VLA-GET-AREA VLOBJ))
(SETQ TXT (STRCAT "\n Area="
                  (RTOS (/ vla_en_AREA 10000) 2 2)
                  " (㎡)"
          )
)
(PRINC TXT)
(IF (= 3 (CAR pp))
    (SETQ loop_id nil)
)
)
)
[/PHP]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

雨箭风刀
发表于 2006-10-16 06:34:20 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
把while放到stretch外面
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyz518mm
 楼主| 发表于 2006-10-16 07:19:18 | 显示全部楼层
那请问 stretch 最后的程序该怎样包在一个命令中执行呢?
(COMMAND "._stretch" "_c" p1 p2 "" p3  (......这段的内容该怎样包在一起呢)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

雨箭风刀
发表于 2006-10-16 11:37:32 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
每次都 stretch一次 ...... stretch到的点位由grread确定，直到确认。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

tctabc
发表于 2006-10-16 16:44:24 | 显示全部楼层
雨箭风刀楼主:
我试过您的建议,
但好像还是不行.
不知道问题在哪里.

想要的结果是可以让面积值连续显示及点位可以拉动~

烦请各位高手可以解答一下~
谢谢~


  3. (DEFUN GET-PTLR (PT DT / PRX PRY PRZ PLX PLY PLZ PT#RIGHT PT#LEFT)
  4. (SETQ PRX (+ (CAR PT ) DT))
  5. (SETQ PRY (+ (CADR PT ) DT))
  6. (SETQ PRZ (CADDR PT ))
  7. (SETQ PLX (- (CAR PT ) DT))
  8. (SETQ PLY (- (CADR PT ) DT))
  9. (SETQ PLZ (CADDR PT ))
  10. (SETQ PT#RIGHT (LIST PRX PRY PRZ))
  11. (SETQ PT#LEFT  (LIST PLX PLY PLZ))
  12. (SETQ PT#LEFT#RIGHT (LIST PT#LEFT PT#RIGHT))
  13. )

  15. (DEFUN C:TEST ()
  16. (setq en (entsel "\n 选取封闭物件:"))
  17. (setq obj (vlax-ename->vla-object (car en)))
  18. (setq loop_id t)
  19. (setq p1 (getpoint "\n 点选拉伸基点:"))
  20. (setq dt 5.0)
  21. (setq pt#lr (get-ptlr p1 dt))
  22. (setq pp (grread t 4 0))

  24. (while loop_id
  25. (command "_.STRETCH" "_C" (car pt#lr) (cadr pt#lr) ""
  26.     p1 (setq p2 (cadr pp)) )
  27. (setq p1 p2)
  28. (setq pt#lr (get-ptlr p1 dt))
  29. (setq pp (grread t 4 0))
  30. (redraw)
  31. (command "_.STRETCH" "_C" (car pt#lr) (cadr pt#lr) ""
  32.     p1 (setq p2 (cadr pp)) )
  33. (setq vla_en_area (vla-get-area obj))
  34. (setq txt (strcat "\n area="
  35.                  (rtos (/ vla_en_area 10000) 2 2)
  36.                  " (㎡)"
  37. ))
  38. (princ txt)
  39. (if (= 3 (car pp))
  40. (setq loop_id nil)
  41. )
  42. )

  44. (command "_.STRETCH" "_C" (car pt#lr) (cadr pt#lr) ""
  45.     p1 (setq p2 (cadr pp)) )
  46. )

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyz518mm
 楼主| 发表于 2006-10-16 20:01:37 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
tctabc楼主我也是跟您一样的状况
不过我用另一种方法没有使用到 stretch 及 sssetfirst
只好期待高手指导用法

我这程序执行命令为 TEST
可以针对 PLINE 物件拉伸指定点
并显示长度及面积
请各位测试看看
测试好再发源码吧!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-18 06:16 , Processed in 0.436264 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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