用ribam修改块对齐lisp
我发现这lisp, lisp是块对齐
h
**** Hidden Message ***** 那么如果它是黑色背景呢...我正在尝试HTML选项...
Ako bas hoces， evo neceg novog...
[代码1
]M.R.
啊? !你好的ribarm(这种反应并 (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...
；；；我要去一个沼泽，一个沼泽，一个沼泽，一个沼泽...一个奴隶...
；；；他说，我愿与你同在，愿与你同在，愿与你同在，愿与你同在...
页:
[1]