这段代码有什么问题 lisp

lzy9788 · 发表于 2004-4-3 23:20:00

请教各位大侠，这个代码有什么错
循环不能嵌套吗?
请指点:
(defun c:dcc ()
(setvar "osmode" 0)
(setq p11 (getpoint "\n请选择起点:")
p12 (getcorner p11 "\n请选择另一角点:"))
(setq ss (ssget "c" p11 p12 '((0 . "LWPOLYLINE,LINE"))))
(setq num (sslength ss)
NN 0 NN1 0)
(while (

登录/注册后可看大图

meflying · 发表于 2004-4-3 23:33:00

登录/注册后可看大图

无痕 · 发表于 2004-4-3 23:47:00

如果两个尺寸标注文字有一部分重叠时，能用LISP实现文字移动来调整吗(想让两尺寸文字分别向外边移出一段距离)

lzy9788 · 发表于 2004-4-4 10:38:00

不是求交点问题，而是选择问题，你应该跟踪一下，看是否选择到那两条比较长的线（用“C”的选择方式是窗选，需要将对象完全包含其中才能被选中）

lzy9788 · 发表于 2004-4-4 10:39:00

我测试过这两条线已选到了,可总是返回的是nil。
搞不懂为什么会还是nil值，再有劳meflying大哥一下。

lzy9788 · 发表于 2004-4-4 10:43:00

大致看了一下,发现有很多问题,,,,
1、取类型时用na_ty，判断时又用an_ty，（从这一点，我就奇怪，你的程序如何能求出p-1，p-2，p-3）
2、同样还有na_ty1和an_ty1的问题
3、从DXF组码中取出的对象类型永远不会为"line"，它都是大写的
4、未给get_pl_pot，我无法调试

meflying · 发表于 2004-4-4 10:56:00

哦，我太粗心了,等下我再传个

这段代码有什么问题 lisp

发表回复

精选推荐

浏览过的版块