将列表转换为Strin

Silvercloak · 发表于 2022-7-6 08:08:05

你好，

我是这里新铸造的AutoLISP noob。我的老板问我是否可以编写一个LISP，它的维数为10000，然后将其改为10000。这是一个很好的小锻炼，拓展了我的技能，但我遇到了一个我想不出办法的障碍。

我已经将维度转换为一个列表，该列表可以转换为字符串，但我似乎无法做到这一点。我试过STRCAT，但总是出错。

有人能帮忙吗？我相信我可以把它变成一个ENTMOD并完成剩下的部分，但我只需要解决这部分。它需要没有（）或“”标记。

谢谢以下是我所做的，

（定义c:DIMCHG（）

（defun GetDim（）
（setq DIMEN（car（entsel）））
（setq OLDDIMEN（entget dimen））
（setq变更（assoc 42 OLDDIMEN））
（setq变更2（cdr变更））
（setq CHANGE3（fix CHANGE2））
（setq DIMLTH（strlen（itoa变更3）））
（setq变更4（itoa变更3））
) ;结束GetDim

（defun分解（）
（setq位置1）
（setq BrkDwn nil）；完成编码后删除
（重复DIMLTH
（setq BrkDwn（cons（substr CHANGE4位置1）BrkDwn））
（setq BrkDwn（cons”“BrkDwn））
（setq位置（+1位置））
) ;结束重复
) ;端部故障
（defun ReAsmbl（）
（setq RSMBL nil）
（BrkDwn时
（条件
（=位置4）
（setq RSMBL（cons”“RSMBL））
（setq位置1）
)
（（=（car BrkDwn）“”（setq BrkDwn（cdr BrkDwn）））
（（/=（car BrkDwn）”“”）
（setq RSMBL（cons（car BrkDwn）RSMBL））
（setq BrkDwn（cdr BrkDwn））
（setq位置（+位置1））
)
) ;结束条件
) ;结束时
) ;结束REASML
（定义ltos（）
（setq gfile（打开“acad.grp”“w”）；打开磁盘上的文件
（写入行RSMBL gfile）；将列表打印到文件
（关闭gfile）；关闭文件
（setq gfile（打开“acad.grp”“r”）；打开文件
（setq strname（读取gfile行））；从文件读取列表
（关闭gfile）；关闭文件
strname；返回已转换列表
)
（GetDim）
（细分）
（setq位置1）
（REASML）
（vl princ到字符串Rsmbl）；我从网上得到的，但看起来还是不对
)

marko_ribar · 发表于 2022-7-6 08:12:15

也许，试试这个：

copy


(defun c:dimch ( / dimss n dim dimval d dimvalstr dimvalstrnew )
 (setq dimss (ssget '((0 . "DIMENSION")) ))
 (repeat (setq n (sslength dimss))
   (setq dim (ssname dimss (setq n (1- n))))
   (setq dimval (cdr (assoc 42 (setq d (entget dim)))))
   (setq dimvalstr (rtos dimval))
   (setq dimvalstrnew (vl-string-translate "." " " dimvalstr))
   (entmod (subst (cons 1 dimvalstrnew) (assoc 1 d) d))
 )
 (princ)
)

M、 R。

Silvercloak · 发表于 2022-7-6 08:17:35

世界跆拳道联盟。。。我正在努力理解你所做的一半，我担心我需要一段时间来研究和理解它。。。你已经知道我要做什么的要点了。我正试图将其四舍五入，这样就不会出现小数点。它被分成三组。。。例如，尺寸显示：

9785642.34将变为9 785 642

恐怕我的编码还是很基础的，因为我还没有完全掌握autolisp中的任何东西。。。你的就像AutoLISP魔法。

银色斗篷

Silvercloak · 发表于 2022-7-6 08:21:38

哦，酷，我想我明白了，你用了选择集。非常巧妙，我从未想过这样做。虽然，我从未听说过vl字符串翻译。我想我知道你想做什么了。

我真的很喜欢这样更安全和整洁。非常感谢。你能告诉我如何把维度分解成三个不带小数点的组吗？

Lee Mac · 发表于 2022-7-6 08:23:44

这很快就写好了，毫无疑问有更好的方法添加分隔符：

copy

(defun c:fixdim ( / e i s x ) (vl-load-com)
   (if (setq s (ssget "_:L" '((0 . "DIMENSION"))))
       (repeat (setq i (sslength s))
           (setq e (entget (ssname s (setq i (1- i)))) x 0)
           (entmod
               (list (assoc -1 e)
                   (cons 1
                       (vl-string-left-trim " "
                           (vl-list->string
                               (reverse
                                   (apply 'append
                                       (mapcar
                                           (function
                                               (lambda ( c )
                                                   (if (zerop (rem (setq x (1+ x)) 3))
                                                       (list c 32)
                                                       (list c)
                                                   )
                                               )
                                           )
                                           (reverse (vl-string->list (rtos (cdr (assoc 42 e)) 2 0)))
                                       )
                                   )
                               )
                           )
                       )
                   )
               )
           )
       )
   )
   (princ)
)