getdist求两点距离？

Lisphk

行雲 发表于 2016-11-30 16:29

你理解反了， 是你内部的变量，不影响外面的。 而不是外部的不影响你的。因为外面的存在的变量，你天然在内部就可以访问使用的。是你内部新生产的变量有可能给外面的同名变量带来影响。

行雲

Lisphk 发表于 2016-11-30 16:06

我的代码都是拼接的，，常犯这样的低价错误

现在是这样
(defun c:xxx( / pa pb bb )
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setq pa (getpoint "\n第一点:"))
(setq pb (getpoint pa "\n第二点:"))
(setq bb (mapcar '- pa pb))
(setq byjl (fix (cadr bb)))
(setq bxjl (fix (car bb)))
(setq pt1 (polar pa (* pi 1.5) byjl))
(setq pt2 (polar pt1 (* pi 0.5) bxjl))
(setvar "osmode" 0)
(command "pline" pa pt1 pt2 "")
(setvar "osmode" os)
)

pt1 到 pt2 那条线没画出来，，是不是(setq bxjl (fix (car bb)))没起到作用，，抑或(setq bb (mapcar '- pa pb))只能取一次值？

另外，(setq pt1 (polar pa (* pi 1.5) byjl))明明是往下定义 pt1 点的，
在操作时
(setq pa (getpoint "\n第一点:"))
(setq pb (getpoint pa "\n第二点:"))
点  “第二点” 时它在  “第一点”  的上面
这时画出来的线条还是往上画的，并未遵循(* pi 1.5)

Lisphk

你程序执行了，没有错误，说明代码是没问题的，那就是你的代码没反应你的想法，肯定是哪个地方公式写错了，这样，你画个图出来，标明下你想要做什么吧。

行雲

Lisphk 发表于 2016-11-30 16:39

谢谢，弄明白了一个非常有价值的概念

行雲

Lisphk 发表于 2016-11-30 16:56

具体应用可能很泛泛，，大致想法测量业已存在的图形，画一些有方向性的线条，用来剪切，或用其他编辑手段，来编辑原有图形，，大致就这样

如图。画切线

先上到下，然后左到右，画线（想让线条遵循点一 点二 的先后顺序的方向性）

再次谢谢你

当点一 点二 的顺序这样时，则这样

Lisphk

行雲 发表于 2016-11-30 17:21

点1是pa ,点2是pb

那你最后画PLINE的代码

(command "pline" pa pt1 pt2 "")

pt2 应该是 pb 才对啊。

行雲

Lisphk 发表于 2016-11-30 17:25

pt2改成pb后画出来的图形很爽啊，，

就是奇怪(command "pline" pa 到 pt1 时，，，怎么不受 (* pi 1.5) 约束啊？

小冬冬2016

我是来学习的。。。谢谢

lijiao

(defun c:xxx( / pa pb bb )
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setq pa (getpoint "\n第一点:"))
(setq pb (getpoint pa "\n第二点:"))
(setvar "osmode" 0)
(command "pline" pa (list (car pa) (cadr pb)) pb "")
(setvar "osmode" os)
)

sicky111

LISP基础要打牢。