[编程申请]：求抓2个点连线中心点的程序.

zlh0 · 发表于 2005-4-19 17:51:27

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

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

×

比如拷贝任何一个对象,首先选中该对象,这时我想抓某2个点的中心点,然后再拷贝到某个地方,也想放在某2个点的中心点上.也就是说我随时想调用此命令都可以, 再有想画条线,第一个点想抓某2个点的中心点第二个点也想抓另外2个点的中心点.谢谢帮助我的朋友们

xyp1964 · 发表于 2005-4-19 18:45:56

[php]
(defun c:test ()
  (setq pt1 (getpoint "\n第1点 : "))
  (if pt1
(setq pt2 (getpoint pt1 "\n第2点 : ")
)
  )
  (command "pline")
  (while (and pt1 pt2)
(setq pt11 (_midp pt1 pt2))
(command pt11)
(setq pt1 (getpoint pt11 "\n第1点<退出> : "))
(if pt1
   (setq pt2 (getpoint pt1 "\n第2点 : "))
)
  )
  (command "")
)
(defun _midp (p1 p2)
  (list (/ (+ (car p1) (car p2)) 2)
(/ (+ (cadr p1) (cadr p2)) 2)
(/ (+ (caddr p1) (caddr p2)) 2)
  )
)
[/php]

zlh0 · 发表于 2005-4-19 20:17:27

谢谢2楼这位朋友,你这个命令只能是在什么命令都不执行的时候才好使,我想要一个透明命令,就象放大缩小那些命令,什么时候调用都好使.还是对你表示感谢.

狂刀 · 发表于 2005-4-20 01:48:52

问题1
'cal
mee
按提示操作
问题2
同理，需求求两点中心点的时候用问题1的解决方法

zlh0 · 发表于 2005-4-20 09:28:32

4楼的朋友你写的我没看懂.我对lisp不太懂,只会别人编完了能使用,请详细说明.谢谢

狂刀 · 发表于 2005-4-20 09:57:18

需要求两点中心点的时候
命令行下输入 ‘cal
再输入 mee
根据提示分别捕捉两个点。

比如：
(defun c:tt ()
(command ".line" (cal "mee") (cal "mee"))
)

一生有你 · 发表于 2005-4-20 11:10:44

我还没意识到什么透明命令呢！！请楼上的给予指点！！我感觉直接调用你给的函数就能用了，关于透明命令，就不懂了，没有接触过！！迷惑之中！！

LUCAS · 发表于 2005-4-20 12:23:52

定位兩點之間的中點

指令行：在定位點的提示下，輸入 mtp

可以將兩點之間的中點 (MTP) 指令修改子與常駐式物件鎖點或物件鎖點取代一起使用。( OSNAP 指令)

在定位點的提示下，輸入 mtp 或 m2p。

第一個中點：指定一點：

第二個中點：指定第二個點

啵浪鼓 · 发表于 2005-4-20 12:51:47

请教一下，上面所说的mee,mtp,m2p是捕捉方式，为什么我在osnap里面找不到这样的组合？
这样的组合有多少？能否贴出常用的另类捕捉点并用中文写意思？

aeo · 发表于 2005-4-20 21:34:55

2005才有吧

xyp1964 · 发表于 2005-4-20 22:00:48

对于自定义程序变为“透明命令”不是太清楚，请DX发表意见！

狂刀 · 发表于 2005-4-21 12:54:32

在定义透明命令的函数中不能调用ｃａｄ命令，这个定律可以打破么？

zlh0 · 发表于 2005-4-21 16:30:48

谁能编一个比较完整的,让大家能用.谢谢

账号		自动登录	找回密码
密码			立即注册

[编程申请]：求抓2个点连线中心点的程序.

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

相关帖子

浏览过的版块