[日积月累]：标注箭头变圆点程序

yunlong3000 · 发表于 2004-3-7 13:59:22

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

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

×

标注箭头变圆点程序
在网上找了很久也没有找到满意的，就自己写了一个。
可以指定将哪一侧箭头变为圆点，也可以两侧同时变。
有还原功能。
对自定义箭头没问题，但对系统默认箭头不知何故只有一部分能改，请高手指点。

lsjjm · 发表于 2004-3-7 14:56:53

看看这个程序：
(defun c:test ()
  (vl-load-com)
  (setq ss (ssget '((0 . "DIMENSION"))))
  (setq n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(vla-put-arrowhead1type obj 3)
(vla-put-arrowhead2type obj 3)
(setq n (1+ n))
  )
)

chenjb990611 · 发表于 2004-3-7 15:24:55

不能用还有脸要钱！

yunlong3000 · 发表于 2004-3-7 17:44:11

请问 chenjb990611 楼主，你试用了没有，
如果没有请你注意一下自己的言词！
有什么意见或建议可以提，但请不要采用这种方式。

yunlong3000 · 发表于 2004-3-8 18:49:49

参考 lsjjm 长老的程序对源程序进行了修改。
优化了程序运行方式。

JOSDENNIS · 发表于 2004-3-9 09:17:40

好程序, 正是我的所需.

conn · 发表于 2004-3-14 12:52:14

好东西

1232002 · 发表于 2004-3-15 15:12:26

好程序, 正是我的所需.

andyhua5240 · 发表于 2004-3-17 11:13:40

程序不错，好用，谢谢！

conn · 发表于 2004-3-18 21:56:55

天正3的箭头怎么改不了？优化的方案不能加载是什么问题？

有点小烦 · 发表于 2006-5-29 15:43:51

跟在属性里改有什么区别？

rk35 · 发表于 2006-6-6 19:16:22

我下载试试了一下，为何用不起来呢？
我是把程序改成bd.lsp,但是在天正3.0加载以后我敲命令bd没有反应？这是何故？请楼主帮帮忙！

yxianfo · 发表于 2008-8-11 09:47:36

今天才发现这个不错的程序（4楼的），谢谢yunlong3000 的奉献！推荐使用，把它顶起来。

lsjzhj2004 · 发表于 2008-8-12 09:17:44

最初由 lsjjm 发布
[B]看看这个程序：
(defun c:test ()
  (vl-load-com)
  (setq ss (ssget '((0 . "DIMENSION"))))
  (setq n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(vla... [/B]

我觉得这个程序如果用对话框的形式来解决就会更完美一些了，因为尺寸都是有第一条直线和第二界线的，有的尺寸需要只把第一个界线改为圆点，有的只需要只把第二个界线改为圆点，有的需要两个都为原点，

chenyun7521 · 发表于 2008-9-8 10:22:05

程序我的也是加载不了啊

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

[日积月累]：标注箭头变圆点程序

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

相关帖子

浏览过的版块