Fügen Sie "koordinierte" Quoten auf der Oberseite eines Polylinea

[frk]

ich erkannte mit der kostbaren hilfe von gp, dass ich wieder danke, diese lispe.

beginnt mit "cd"

die aufmerksamkeit auf die indikationen am anfang.

ist sehr abhängig vom verwendeten quotenstil.

...--------------
; lisp auf alle vertiken einer polylinea cordinatenquote einfügen
; (bestellt in uk) x und y mit basepunkt (ucs 0.0) zu definieren
; . hinweis: die doorinataten sind abhängig vom aktulelen zitnstil im dwg .
; auf den q-stil wirken. x negativ
...--------------


(Defunc c:cd (/ ent idx pts totparam p1 ptx ptty)

(Befehl "_ucs" "_w")

(Befehl "_point" bricht)
(setq p1 (getvar "lastpoint")
(Befehl "_ucs" p1)

(vl-load-com)

(Fälle (Setq ss)))
(Progn)

(fla-startundomark (vla-get-active document (vlax-get-acad-objekt))
(setq idx)

(setq idx (1+ idx))(sslength ss)
(setq ent (Name ss idx))
(setq toparam (fix))
(Sektq i)

(setq i (1+i) toparam)
(setq pt (vlaxkurve-getpointatparam ent i))

(setq ptt (- (carpt) (car p1)) (- (cadr p1))
(setq kk 30)
;der ebenso wert, der in den zitatstil aufgenommen worden soll -linien und pfeile -offset from the origin-
(setq ptx (+ kkk))
(setq ptty (+ kkk))
(Befehl "_dimordine" ptt ".yz" ptx)
(Befehl "_dimordine" ptt ".xz" ptty)
)

(setq pt (vlaxkurve-getpointatparam ent)
(setq ptt (- (carpt) (car p1)) (- (cadr p1))
(setq kk 30)
;der ebenso wert, der in den zitatstil aufgenommen worden soll -linien und pfeile -offset from the origin-
(setq ptx (+ kkk))
(setq ptty (+ kkk))
(Befehl "_dimordine" ptt ".yz" ptx)
(Befehl "_dimordine" ptt ".xz" ptty)
)

(fla-endundomark (fla-get-active document))
)
)
(princ)
)

 

[blubossa]

hi.

aber was bedeutet es für negative hängt von dem zitat-stil....in der praxis, negative chancen zu sehen, was getan werden sollte?

b)

 

[confutatis]

hier können mit dieser kleinen änderung der cd.lsp-datei die koordinaten auch negative werte annehmen.

 

[blubossa]

danke.
und gute ferien für alle....... diejenigen, die es schaffen, es zu machen:

b)