[LISP程序]：我的画箭头小程序，6行

WYQ4517 · 发表于 2005-6-14 17:13:53

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

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

×

我的画箭头小程序，见笑了：
(defun c:jiantou()
   (command "osnap" "END")
   (setq bl (getreal "\n图纸比例? <1>"))
   (if (= bl nil) (setq bl 1))
   (setq sp (getpoint "\n输入箭头始点:"))
   (command "pline" sp "w" (* 0.8 bl) 0 pause "")
   (command "osnap" "NON")
)

xyp1964 · 发表于 2005-6-14 19:14:34

[php](defun c:test ()
  (initget 7)
  (setq bl (getreal"\n箭头宽 : ")
sp (getpoint "\n输入箭头始点 : "))
  (command "pline" sp "w" bl 0 pause "")
  )[/php]

WYQ4517 · 发表于 2005-6-14 19:23:58

2楼的代码好，我已记录下来了。多谢。

xjlmlxbq · 发表于 2005-6-14 20:15:55

都是迷你版,呵呵

狂刀 · 发表于 2005-6-14 21:10:44

既然用了pause，那不如用到底
[php]
(command ".pline" pause "w" pause 0 pause "")
[/php]

思达克 · 发表于 2005-6-15 04:15:37

这有实际意义吗？一个现成的命令le就可以了啊，何必搞的如此复杂？

PFD8667 · 发表于 2005-6-15 05:40:02

4楼观念不对,现成的命令le很不方便,这些高手们编的程序方便多了,我们应该向这些高手们学习!

xyp1964 · 发表于 2005-6-15 09:14:21

另一个的效果：

[FONT=courier new]
(load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
;;;箭头
(defun c:test ()
(cmdla0)
(setq bl (UREAL 7 "" "\n箭头宽" bl))
(mkla "箭头" 1)
(while (setq sp (getpoint "\n输入箭头始点<退出> : "))
(command "pline" sp "w" bl 0 pause ""))
(cmdla1)
)[/FONT]

xyp1964 · 发表于 2005-8-30 21:54:32

效果：

网络水手 · 发表于 2005-8-31 00:55:46

最好能在后面加一根直线然后作为一个块就更好了!

就像leader的箭头一样,但不需要后面的文字!

xyp1964 · 发表于 2005-9-1 07:42:25

加载JT，运行命令JT：

xyp1964 · 发表于 2005-9-1 07:43:21

运行效果：

zxdvip · 发表于 2005-9-18 21:22:19

看起来不错，谢谢

zg77 · 发表于 2005-10-18 12:54:18

好啊

whfdchst · 发表于 2005-10-18 13:56:00

用PL命令就行了,何必麻烦.

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

[LISP程序]：我的画箭头小程序，6行

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

相关帖子

好