乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 84|回复： 9

[编程交流] 增加lisp中的值？

[复制链接]
fleshget

4

主题

15

帖子

11

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 08:38:32 | 显示全部楼层 |阅读模式
你好，我有一个Lisp程序的问题。
 
  2. (while (>= cnt 0)
  3. (setq [color="red"]km[/color] (+ [color="red"]aramesafe[/color] [color="red"]bkm[/color])))
  5. (write-line (strcat "\t\tNO     " [color="red"]km[/color] "    KOT    0.00000    0.00    0.00 0 0") txt)

 
我不能做这个部分
 
即
  1. (setq bkm 0)
  2. (setq aramesafe 20)

 
  1. (while (>= cnt 0)
  2. (setq km (+ aramesafe bkm)))

 
添加aramesafe值，重复增加到最后，如下所示：
 
  1. (write-line (strcat "\t\tNO     " [color="red"]20[/color] "    KOT    0.00000    0.00    0.00 0 0") txt)
  2. (write-line (strcat "\t\tNO     " [color="red"]40[/color] "    KOT    0.00000    0.00    0.00 0 0") txt)
  3. (write-line (strcat "\t\tNO     " [color="red"]60[/color] "    KOT    0.00000    0.00    0.00 0 0") txt)
  4. (write-line (strcat "\t\tNO     " [color="red"]80[/color] "    KOT    0.00000    0.00    0.00 0 0") txt)
  5. ...
  6. ...

 
这里全是Lisp程序
 
  1. (defun myerror (e)
  2.   (if (/= e "Function cancelled")
  3.   (princ (strcat "\nError:" e))
  4.   )
  5.   (setvar "BLIPMODE" bm)
  6.   (setvar "OSMODE" om)
  7.   (setvar "EDGEMODE" em)
  8.   (setq *error* olderr)
  9.   (setvar "CMDECHO" 1)
  10.   (princ)
  11. )
  13. (defun C:SEV ()
  14.   (setq olderr *error* *error* myerror)
  15.   (setvar "CMDECHO" 0)
  16.   (setq om (getvar "OSMODE"))
  17.   (setvar "OSMODE" 0)
  18.   (setq bm (getvar "BLIPMODE"))
  19.   (setvar "BLIPMODE" 0)
  20.   (setq em (getvar "EDGEMODE"))
  21.   (setvar "EDGEMODE" 0)
  22.   (setq cl (getvar "clayer"))
  24.   (command "layer" "make" "kesit" "color" "3" "kesit" "")
  25.   (command "layer" "make" "kesit_sol" "color" "1" "kesit_sol" "")
  26.   (command "layer" "make" "kesit_sag" "color" "5" "kesit_sag" "")
  27.   
  28.   (vl-load-com)
  29.   (setq txt (open "C:\\ok.txt" "w"))
  31.   (if (null (tblsearch "BLOCK" "PLALISP"))
  32.      (progn
  33.         (command "layer" "set" "kesit_sol" "")
  34.         (entmake '((0 . "BLOCK") (2 . "KESITSOL") (70 . 64) (10 0.0 0.0 0.0)))
  35.         (entmake '((0 . "LINE") (8 . "kesit_sol") (10 0.0 0.0 0.0) (11 0.0 0.1 0.0)))
  36.         (entmake '((0 . "ENDBLK")))
  37.         (command "layer" "set" "kesit_sag" "")
  38.         (entmake '((0 . "BLOCK") (2 . "KESITSAG") (70 . 64) (10 0.0 0.0 0.0)))
  39.         (entmake '((0 . "LINE") (8 . "kesit_sag") (10 0.0 0.0 0.0) (11 0.0 0.1 0.0)))
  40.         (entmake '((0 . "ENDBLK")))
  41.      )
  42.   )
  43.   (setq bkm (getdist (strcat "Başlangıç KM:"))) (if (= bkm nil)(setq bkm 0))
  44.   (setq eksen (entsel "\nEksen: "))
  45.   (redraw (car eksen) 3)
  46.   (princ "\nSol: ")
  47.   (setq sol (ssget))
  48.   (princ "\nSag: ")
  49.   (setq sag (ssget))
  50.   (setq aramesafe 20)
  51.   (if (null aramesafe)
  52.      (setq aramesafe (getdist "\nAra Mesafe: "))
  53.      (setq genislik (getdist (strcat "\nAra Mesafe <" (rtos aramesafe 2 2) ">: "))))
  54.      
  55.   (if genislik (setq aramesafe genislik))
  56.   (redraw (car eksen) 4)
  57.   
  58.   (command "layer" "set" "kesit" "")
  59.   (command "MEASURE" eksen "BLOCK" "KESITSOL" "Y" aramesafe)
  60.   (command "MEASURE" eksen "BLOCK" "KESITSAG" "Y" aramesafe)
  61.   (setq ssetsol1 (ssget "X" '((2 . "KESITSOL"))))
  62.   (setq ssetsag1 (ssget "X" '((2 . "KESITSAG"))))
  63.   (setq cnt 0)
  64.   (setq even T)
  65.   (repeat (sslength ssetsol1)
  66.      (setq entsol (ssname ssetsol1 cnt))
  67.      (setq ptxsol (cdr (assoc 10 (entget entsol))))
  68.      (command "EXPLODE" entsol)
  69.      (command "chprop" "P" "" "layer" "kesit_sol" "")
  70.      (setq ssetsol2 (ssget "P")
  71.            entsol (ssname ssetsol2 0)
  72.            pt1sol (cdr (assoc 10 (entget entsol)))
  73.            pt2sol (cdr (assoc 11 (entget entsol)))
  74.            ansol (angle pt1sol pt2sol)
  75.            pt1sol (list entsol (polar pt1sol ansol 0.01))
  76.            pt2sol (list entsol (polar pt2sol (+ ansol pi) 0.01))
  77.      )
  78.      (setq entsag (ssname ssetsag1 cnt))
  79.      (setq ptxsag (cdr (assoc 10 (entget entsag))))
  80.      (command "EXPLODE" entsag)
  81.      (command "chprop" "P" "" "layer" "kesit_sag" "")
  82.      (setq ssetsag2 (ssget "P")
  83.            entsag (ssname ssetsag2 0)
  84.            pt1sag (cdr (assoc 10 (entget entsag)))
  85.            pt2sag (cdr (assoc 11 (entget entsag)))
  86.            ansag (angle pt1sag pt2sag)
  87.            pt1sag (list entsag (polar pt1sag ansag 0.01))
  88.            pt2sag (list entsag (polar pt2sag (+ ansag pi) 0.01))
  89.      )
  90.      (command "EXTEND" sol "" pt1sol pt2sol "")
  91.      (command "TRIM" eksen "" pt1sol "")
  92.      
  93.      (setq datasol (vlax-ename->vla-object entsol))
  94.      (setq lengsol (vla-get-length datasol))
  95.      (setq lilisol (rtos lengsol 2 3))
  96.      (command "ERASE" entsol "")
  97.      
  98.      (command "EXTEND" sag "" pt1sag pt2sag "")
  99.      (command "TRIM" eksen "" pt1sag "")
  100.      
  101.      (setq datasag (vlax-ename->vla-object entsag))
  102.      (setq lengsag (vla-get-length datasag))
  103.      (setq lilisag (rtos lengsag 2 3))
  104.      (command "ERASE" entsag "")
  105.      
  106.      [color="red"](while (>= cnt 0)
  107.   (setq km (+ aramesafe bkm)))[/color]
  108.      
  109.      (write-line (strcat "\t\tNO     "[color="red"] km[/color] "    KOT    0.00000    0.00    0.00 0 0") txt)
  110.      (write-line (strcat lilisol"%D1,YKO") txt)
  111.      (write-line (strcat lilisag"%D2,YKA") txt)
  112.      (setq cnt (1+ cnt))
  113.   )
  114.      
  115.   (close txt)
  116.   (setvar "OSMODE" om)
  117.   (setvar "BLIPMODE" bm)
  118.   (setvar "EDGEMODE" em)
  119.   (setq *error* olderr)
  120.   (command "layer" "set" cl "") 
  121.   (setvar "CMDECHO" 1)
  122.   (princ)
  123. )
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 08:46:38 | 显示全部楼层 
  1.  
  2. (while (>= cnt 0)
  3.  (setq km (+ aramesafe bkm)))

 
cnt变量自启动while循环时起保持不变
 
或者是你的打字错误。但即便如此：
  1.  
  2. (while [color=blue][b](>= cnt 0)[/b][/color]
  3.   (setq km (+ aramesafe bkm))
  5.      (write-line (strcat "\t\tNO     " km "    KOT    0.00000    0.00    0.00 0 0") txt)
  6.      (write-line (strcat lilisol"%D1,YKO") txt)
  7.      (write-line (strcat lilisag"%D2,YKA") txt)
  8.     [b][color=blue](setq cnt (1+ cnt))[/color][/b]
  9.   )

 
您正在增加cnt的值，测试表达式“（>=cnt 0）”[大于或等于]将永远不会计算为零，因为您从0开始
（setq cnt（1+cnt））
回复

使用道具 举报

fleshget

4

主题

15

帖子

11

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 08:58:05 | 显示全部楼层
@pBe公司
 
我的脑子乱了，我不能完全理解你，嗯。。我自定义已经存在的lisp文件，我还是新手
 
重复命令之前有cnt变量。这个逻辑可能是错误的，我不确定。
 
我想用aramesafe增加bkm变量
 
就像那样
 
  1. (setq [color="red"]bkm[/color] 0) [color="#9acd32"];; 0 or any integer[/color]
  2. (setq [color="red"]aramesafe[/color] 20)

 
然后km变量递增；
第一公里值为20
40
60
80
...
...
 
它将继续重复命令。你能帮我一下吗？
 
对不起，我的英语不好：/
 
谢谢
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:04:59 | 显示全部楼层
 
 
其他问题：
[code]（setqkm[[color]（+aramesafe bkm））；
回复

使用道具 举报

fleshget

4

主题

15

帖子

11

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 09:09:31 | 显示全部楼层
[code]（setq bkm（+aramesafe bkm））（while（或（<bkm lengsol）（<bkm lengsag））；
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:12:32 | 显示全部楼层
 
很高兴你明白了。真为你高兴
 
干杯
回复

使用道具 举报

fleshget

4

主题

15

帖子

11

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 09:21:23 | 显示全部楼层
大家好，
 
我修改了这个lisp，它工作得很好。但测量命令有一个小问题。
 
在pline中添加块，并按我想要的方向测量，没关系。但这一过程正朝着相反的方向发展。
 
请查阅附件并试用，我的英语不足以解释这个问题
 
键入命令，
“BaşlangıçKM”类型0
选择中间的红色pline
按enter键5次
没关系。
 
如果选择右端的红色pline：流程从右侧开始，从右侧开始。但是，如果您选择了左端的红色pline：它将再次从右侧开始
 
我希望能解释我的问题。。谢谢你的帮助，干杯。。
 
 
 
将dwg和lisp文件添加到附件中
版次：。图纸
pla rkyk。lsp
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:28:06 | 显示全部楼层
 
“测量”命令由创建多段线的方式决定。您需要做的是反转多段线：
 
使用这个或这个
 
如果你需要帮助，就喊一声
回复

使用道具 举报

fleshget

4

主题

15

帖子

11

银币

初来乍到

Rank: 1

铜币
20
发表于 2022-7-6 09:37:19 | 显示全部楼层
是 啊！非常感谢pBe，你是我的救世主
 
冰雹
回复

使用道具 举报

pBe

32

主题

2722

帖子

2666

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
211
发表于 2022-7-6 09:44:00 | 显示全部楼层
 
这都是你的肉身。
 
顺便说一句，我喜欢这个主意
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-7 09:13 , Processed in 0.786503 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表