是的，这是真的。
一种简单的替代方法是临时将修订索引转换为字符串，并使用ACAD_STRLSORT对其进行排序：
(mapcar 'atoi (acad_strlsort (mapcar 'itoa '(5 0 3 0 1))))
当做
米尔恰 也很简单
（if（=r1 nil）（setq r1 0））
(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)
)
页:
1
[2]