排序局部变量？是th

MSasu · 发表于 2022-7-6 09:08:51

是的，这是真的。
一种简单的替代方法是临时将修订索引转换为字符串，并使用ACAD_STRLSORT对其进行排序：

(mapcar 'atoi (acad_strlsort (mapcar 'itoa '(5 0 3 0 1))))

当做
米尔恰

BIGAL · 发表于 2022-7-6 09:15:15

也很简单

（if（=r1 nil）（setq r1 0））

copy


(if (= r1 nil)(setq r1 0))
or preset
(setq vert 50)
   (prompt "\nEnter Vertical scale:<")
   (prin1 vert)
   (prompt ">:")
   (setq newvert (getint))
   (if (= newvert nil)
     (princ)
     (setq vert newvert)
   )

[编程交流] 排序局部变量？是th

发表回复

精选推荐