增加lisp中的值？
你好，我有一个Lisp程序的问题。(while (>= cnt 0)
(setq km (+ aramesafe bkm)))
(write-line (strcat "\t\tNO " km " KOT 0.00000 0.00 0.00 0 0") txt)
我不能做这个部分
即
(setq bkm 0)
(setq aramesafe 20)
(while (>= cnt 0)
(setq km (+ aramesafe bkm)))
添加aramesafe值，重复增加到最后，如下所示：
(write-line (strcat "\t\tNO " 20 " KOT 0.00000 0.00 0.00 0 0") txt)
(write-line (strcat "\t\tNO " 40 " KOT 0.00000 0.00 0.00 0 0") txt)
(write-line (strcat "\t\tNO " 60 " KOT 0.00000 0.00 0.00 0 0") txt)
(write-line (strcat "\t\tNO " 80 " KOT 0.00000 0.00 0.00 0 0") txt)
...
...
这里全是Lisp程序
(defun myerror (e)
(if (/= e "Function cancelled")
(princ (strcat "\nError:" e))
)
(setvar "BLIPMODE" bm)
(setvar "OSMODE" om)
(setvar "EDGEMODE" em)
(setq *error* olderr)
(setvar "CMDECHO" 1)
(princ)
)
(defun C:SEV ()
(setq olderr *error* *error* myerror)
(setvar "CMDECHO" 0)
(setq om (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq bm (getvar "BLIPMODE"))
(setvar "BLIPMODE" 0)
(setq em (getvar "EDGEMODE"))
(setvar "EDGEMODE" 0)
(setq cl (getvar "clayer"))
(command "layer" "make" "kesit" "color" "3" "kesit" "")
(command "layer" "make" "kesit_sol" "color" "1" "kesit_sol" "")
(command "layer" "make" "kesit_sag" "color" "5" "kesit_sag" "")
(vl-load-com)
(setq txt (open "C:\\ok.txt" "w"))
(if (null (tblsearch "BLOCK" "PLALISP"))
(progn
(command "layer" "set" "kesit_sol" "")
(entmake '((0 . "BLOCK") (2 . "KESITSOL") (70 . 64) (10 0.0 0.0 0.0)))
(entmake '((0 . "LINE") (8 . "kesit_sol") (10 0.0 0.0 0.0) (11 0.0 0.1 0.0)))
(entmake '((0 . "ENDBLK")))
(command "layer" "set" "kesit_sag" "")
(entmake '((0 . "BLOCK") (2 . "KESITSAG") (70 . 64) (10 0.0 0.0 0.0)))
(entmake '((0 . "LINE") (8 . "kesit_sag") (10 0.0 0.0 0.0) (11 0.0 0.1 0.0)))
(entmake '((0 . "ENDBLK")))
)
)
(setq bkm (getdist (strcat "Başlangıç KM:"))) (if (= bkm nil)(setq bkm 0))
(setq eksen (entsel "\nEksen: "))
(redraw (car eksen) 3)
(princ "\nSol: ")
(setq sol (ssget))
(princ "\nSag: ")
(setq sag (ssget))
(setq aramesafe 20)
(if (null aramesafe)
(setq aramesafe (getdist "\nAra Mesafe: "))
(setq genislik (getdist (strcat "\nAra Mesafe <" (rtos aramesafe 2 2) ">: "))))
(if genislik (setq aramesafe genislik))
(redraw (car eksen) 4)
(command "layer" "set" "kesit" "")
(command "MEASURE" eksen "BLOCK" "KESITSOL" "Y" aramesafe)
(command "MEASURE" eksen "BLOCK" "KESITSAG" "Y" aramesafe)
(setq ssetsol1 (ssget "X" '((2 . "KESITSOL"))))
(setq ssetsag1 (ssget "X" '((2 . "KESITSAG"))))
(setq cnt 0)
(setq even T)
(repeat (sslength ssetsol1)
(setq entsol (ssname ssetsol1 cnt))
(setq ptxsol (cdr (assoc 10 (entget entsol))))
(command "EXPLODE" entsol)
(command "chprop" "P" "" "layer" "kesit_sol" "")
(setq ssetsol2 (ssget "P")
entsol (ssname ssetsol2 0)
pt1sol (cdr (assoc 10 (entget entsol)))
pt2sol (cdr (assoc 11 (entget entsol)))
ansol (angle pt1sol pt2sol)
pt1sol (list entsol (polar pt1sol ansol 0.01))
pt2sol (list entsol (polar pt2sol (+ ansol pi) 0.01))
)
(setq entsag (ssname ssetsag1 cnt))
(setq ptxsag (cdr (assoc 10 (entget entsag))))
(command "EXPLODE" entsag)
(command "chprop" "P" "" "layer" "kesit_sag" "")
(setq ssetsag2 (ssget "P")
entsag (ssname ssetsag2 0)
pt1sag (cdr (assoc 10 (entget entsag)))
pt2sag (cdr (assoc 11 (entget entsag)))
ansag (angle pt1sag pt2sag)
pt1sag (list entsag (polar pt1sag ansag 0.01))
pt2sag (list entsag (polar pt2sag (+ ansag pi) 0.01))
)
(command "EXTEND" sol "" pt1sol pt2sol "")
(command "TRIM" eksen "" pt1sol "")
(setq datasol (vlax-ename->vla-object entsol))
(setq lengsol (vla-get-length datasol))
(setq lilisol (rtos lengsol 2 3))
(command "ERASE" entsol "")
(command "EXTEND" sag "" pt1sag pt2sag "")
(command "TRIM" eksen "" pt1sag "")
(setq datasag (vlax-ename->vla-object entsag))
(setq lengsag (vla-get-length datasag))
(setq lilisag (rtos lengsag 2 3))
(command "ERASE" entsag "")
(while (>= cnt 0)
(setq km (+ aramesafe bkm)))
(write-line (strcat "\t\tNO " km " KOT 0.00000 0.00 0.00 0 0") txt)
(write-line (strcat lilisol"%D1,YKO") txt)
(write-line (strcat lilisag"%D2,YKA") txt)
(setq cnt (1+ cnt))
)
(close txt)
(setvar "OSMODE" om)
(setvar "BLIPMODE" bm)
(setvar "EDGEMODE" em)
(setq *error* olderr)
(command "layer" "set" cl "")
(setvar "CMDECHO" 1)
(princ)
)
(while (>= cnt 0)
(setq km (+ aramesafe bkm)))
cnt变量自启动while循环时起保持不变
或者是你的打字错误。但即便如此：
(while (>= cnt 0)
(setq km (+ aramesafe bkm))
(write-line (strcat "\t\tNO " km " KOT 0.00000 0.00 0.00 0 0") txt)
(write-line (strcat lilisol"%D1,YKO") txt)
(write-line (strcat lilisag"%D2,YKA") txt)
(setq cnt (1+ cnt))
)
您正在增加cnt的值，测试表达式“（>=cnt 0）”[大于或等于]将永远不会计算为零，因为您从0开始
（setq cnt（1+cnt）） @pBe公司
我的脑子乱了，我不能完全理解你，嗯。。我自定义已经存在的lisp文件，我还是新手
重复命令之前有cnt变量。这个逻辑可能是错误的，我不确定。
我想用aramesafe增加bkm变量
就像那样
(setq bkm 0) ;; 0 or any integer
(setq aramesafe 20)
然后km变量递增；
第一公里值为20
40
60
80
...
...
它将继续重复命令。你能帮我一下吗？
对不起，我的英语不好：/
谢谢
其他问题：
（setqkm[（+aramesafe bkm））； （setq bkm（+aramesafe bkm））（while（或（<bkm lengsol）（<bkm lengsag））；
很高兴你明白了。真为你高兴
干杯 大家好，
我修改了这个lisp，它工作得很好。但测量命令有一个小问题。
在pline中添加块，并按我想要的方向测量，没关系。但这一过程正朝着相反的方向发展。
请查阅附件并试用，我的英语不足以解释这个问题
键入命令，
“BaşlangıçKM”类型0
选择中间的红色pline
按enter键5次
没关系。
如果选择右端的红色pline：流程从右侧开始，从右侧开始。但是，如果您选择了左端的红色pline：它将再次从右侧开始
我希望能解释我的问题。。谢谢你的帮助，干杯。。
将dwg和lisp文件添加到附件中
版次：。图纸
pla rkyk。lsp
“测量”命令由创建多段线的方式决定。您需要做的是反转多段线：
使用这个或这个
如果你需要帮助，就喊一声 是 啊！非常感谢pBe，你是我的救世主
冰雹
这都是你的肉身。
顺便说一句，我喜欢这个主意
页:
[1]