用ribam修改块对齐lisp

dussla · 发表于 2022-7-8 11:14:30

我发现这lisp
, lisp是块对齐
h

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

ribarm · 发表于 2022-7-8 11:28:18

那么如果它是黑色背景呢...我正在尝试HTML选项...
Ako bas hoces， evo neceg novog...
[代码1
]M.R.

JohnK · 发表于 2022-7-8 11:53:46

啊? !你好的ribarm(这种反应并

ribarm · 发表于 2022-7-8 13:20:17

(defun c:rhombo(/* error * rec recx gr p a b P1 p2 P3 P4 k)
(VL-load-com)
(defun * error *(m)
(if m
(prompt m)
)
(princ)
)
(ent make
(list
(cons 0 " CIRCLE))
(list 10 0 . 0 . 0 . 0 . 0 . 0 . 0)
(cons 40 1 . 0)
)
(setq) 128(getvar ' plinegen)))
(cons 38 0.0)
(list 10 0.0 0.0)
(list 10 1.0 0.0)
(list 10 1.0 1.0)
(list 10 0 0.0 1.0)
(list 210 0 0.0 0 0.0 1.0)
)
(setq recx(entget rec))
(vla-zoomwindow) 0.25 pi)))
(setq P1(list 0.0 0.0))
(setq P3(polar(list 0.0 0.0)b(+(sqrt 2.0)((-2.0(sqrt 2.0)))(progn(if(> aa(* 0.25 pi))(if(
aa(* 0.25 pi))(if(
(set) (if(
(setq k nil)
(entupd(cdr(assoc-1(entmod(setq recx(mapcar)(function(lambda(x)(if(=(if ；；菱形、正方形、长方形...孙策在那里，博拉克在那里...
；；；帕纳拉夫诺，奥德鲁西特萨米，阿里我pored toga邮政和其他cudi...
；；；我要去一个沼泽，一个沼泽，一个沼泽，一个沼泽...一个奴隶...
；；；他说，我愿与你同在，愿与你同在，愿与你同在，愿与你同在...

[编程交流] 用ribam修改块对齐lisp

发表回复

精选推荐