[LISP函数]：做了一画剖面符号的程序请大家指教

yjtdkj · 发表于 2004-12-15 22:40:13

斑竹，你可能没有理解xyp1964的意思，你可以看看他贴的图，他的意思想在剖切号的另一侧加图纸编号

qjcpj · 发表于 2004-12-15 23:18:38

两点建议：
1.在AutoCAD 2002上运行楼主程序，在提示“点取剖视方向 :”时击鼠标右键，提示“*******程序异常退出*******”，我的意见是在此处加一判断(可用While语句)，当误操作时，再次提示用户“点取剖视方向 :”，而不至于退出应用程序！
2.程序中“输入剖面号<n>:”的文字应能动态调整移动，以下几句是我在几年前编写的一个程序片断，希望对你拓宽思路有所帮助。
......
(setq selt (ssadd))
(command "text" "J" "bc" p2 gt "0" fh)
(setq selt (ssadd (entlast) selt))
......
(command "move" selt "" p0 pause)
......
一个问题：
运用楼主程序生成的实体，怎么在AutoCAD中使用Erase命令不能在屏幕上删除，须再次调用redraw或regen命令才行？

yjtdkj · 发表于 2004-12-16 12:32:23

赞同楼上的第一点，
至于第二点，我觉得不是特别有必要，不过你的程序我很有兴趣，先收下来了，谢谢!
最后一个问题，我用的是grvecs函数，在我的CAD2004里面，只要滚动屏幕一下就可以了，可能是版本不一样的问题吧，待我改进

xyp1964 · 发表于 2004-12-16 12:40:14

最初由 yjtdkj 发布
[B]赞同楼上的第一点，
至于第二点，我觉得不是特别有必要，不过你的程序我很有兴趣，先收下来了，谢谢!
最后一个问题，我用的是grvecs函数，在我的CAD2004里面，只要滚动屏幕一下就可以了，可能是版本不一样的问题吧... [/B]

程序结束前添加：
(redraw)

加“图纸张号”功能修改：

zjfcumt · 发表于 2004-12-16 13:01:16

能否加一个变量，把绘图的比例给考虑进去？

xyp1964 · 发表于 2004-12-16 13:16:39

最初由 zjfcumt 发布
[B]能否加一个变量，把绘图的比例给考虑进去？ [/B]

已经考虑：打开图第一次使用时会提示出图比例。

yjtdkj · 发表于 2004-12-16 13:30:01

xyp1964
多谢，
现在下载不了，下一班后好好研究

ss1025 · 发表于 2004-12-17 13:09:16

程序做的还是不错。
另外，可以看一下另一个版块
[LISP程序]：再次为大家奉献一个程序：绘制剖切符号
中，也有类似的程序啊。

xxxcad · 发表于 2004-12-17 16:03:14

沒學過lisp,所以很需要

阿龙197811 · 发表于 2004-12-30 08:50:58

好用,如果改为对话框就更好了.

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

[LISP函数]：做了一画剖面符号的程序请大家指教

浏览过的版块